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' Chapter A2 f 
ALCKHj language manual mACCOMPAlTY CHAPTER 2, , ^ ' 

■■ ■ •' ■ • ' ■ ' 

A2-i Intro^iuction • . ^ , ' 

In. Chap^r 2 we developed an appreciation of input, output and assignment 
stetjs as compon^fs of algorithms/ expressed in the form ©f flow charts. So - 
*far, we Vave viewed flow charts as a means for conveying a, sequence of compu- 
' tation rules primarily from .one person to another. We have tacitly assu&ed " 
^that only man can read, understand and carry out the indent of such flow charts 
Naturally w^ want^o include computer^ in the set of all things which carf read, 
understand inji carry out procedures, "flb , 

AXX30L -^ langxiage and processor ** i I . ^ ^ 

iPrdgiramming languages like ALGOL and FORERAN accomplish this objective. 
Th^ 'Steps of a prOj^ranMng language are^ Called statetgents . They correspond 
ix)ughly to the boxes of a flow trhart.* ' ^ * . 

■ . .. . r ' V • -J ■ 

. ALGOL 6e /' ^ ■ ' ' . 

. " •Several years ago a' grcTup of comj^uter specialists and mathematicians from 
many countries ^jointj^^eve loped an English-like programming language which 
they called ALGOL 60. The language Was designed with these objectives. 

- , 1. A wide variety* of algorithms -q^r\^ be described with tl:jis language. 

^ Its chief area, of application i-s for .expressing algorithms which 

' deal with scientific and engineeritig confutation. Algorithms forvi 
*'♦»>■ . * « / • 

many other type'^'-of problems can^lso be expressed satisfactorily 
' ALGOL ' ' . 

2. , The rules or .'"grammar" of the language are defined precise3^--i .e., 

' wi»th mathematical, rigor (unlike English), ^pie ne;b result is that an 
" ^ algori"ttim Xt*ittex\ in iU^L 6Qr means preci'sely the same tning to each 
'person who reads It, i..e», i-t means' the same thing"^ll over the world 
to people whA^have leamed'thig language. Hence, ALGOL 60 provides , 



a means for .communicating algorithms via correspondence and publica- 
tions, from one person to another.. It Is indeed an international . 
language. ' ^ . ' ^ 

3. 'With minor additions or modifications/ ALGOL 66 >6ah -be "implemented" 
on many types of digital computers. By implementation w§ mean .that -* 
a computer can be programmed to accept as 'Source'' programs algo- 
rithms written im a versiorl of ALGOL 60 and automaV-cally convert 
\ ^ them to sequences of computer instructions often called "target" 
prog2/ams, whifch can^then be executed by the /computer. ' • 

These features of AKJOL 60^ have led 'fo its vide, international acceptance 
'among mathematicians and sqi,entists. In this chapter, we shall begin tg de- 
scribe ALGOL 60 as it is typically implemented for use on a- computer/ califng 
it sipiply ALGOL . • ^ • - • - ' ^ - ' " 

^ ^ EacK statemeht^ in ALGOL is,^written so that when^ typed o:^ pujiohed on a 
card it can be transferred to the computer's memory. 'Here it' can be scanned r 
character by character*^ and analyzed f^v its fuLl intent. ' • - * 

^Programs which- analyze these statements are called. compiler or processor 
programs. A typical ALGOL pr^ise^or reads statements origii^atinj on punch 
cards and ^naly ties .them, bjT^converting e'ach 'statement into* anv equivalent sequence 
of computer instri^jetion^. Were these instructions to be executed, it would 
amoung to havj^ the computer carry out the. intent of the ALGOL statement^ 
"X / • ' \' ' ' ' ' * ' • \ • 

Talrget programs and source progi^ams * . V • 

T~T ^ — * ' 

*^f|^e processor program wiil read apd analyse all the statkments^ of an ALGOL 
progi^ to generate a complete set oT insti^uctions <?r "target" program,^ suffi- 
cient, if executed, to carry out J he" intent of the entire proce^ss. The "target" 

• ^ - ' / ' . , * * /< 

pr6gr^ gets its* name because it is 'the target or objective ,of the processor , 

program* Similarly, the prpcessor .has received as input a "scbroe" projgrah — 
written in the 'ALGOL language. ^When the processor pro'gram fin^jshes generating 
the target program, the computer^ may execute* these' Instructions right away. 
Jhis is" feasible becaifse ^he target progrftm is developed ahd kept in the com-* 1» 
puter*^CTiory. if the target program is ^00 big ^;o fit in hi^h^ speed jnemory - 
along with thel large processor program, the* ge;iera-ied* targ^l^ SB^ stored tempo- 
rarily in some form of au^ciliary. memory media, such 'as on magnetkc drums, disks, 
or tapes, or in the form of de/:ks of punched cards ••^ When;stpr^ in auxiiiary'* , 

i . . ' , * % - ^ , * * • ' * ' : 

'This process is further des<5rib,ed in SecMon 2-4! of the mala.te)ct/ ^ 
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memory media, especially puliched cards, target programs (?an be r^c^lled for 
execution at aoy subsequent time, as suggested in Figure ^-1. Wfe would rarely 
'wisfi to read or study the targel_pro'gi*am ourselves, but \n'principle this can 
alvay^be done. by causing the p^j^essor to print ^he target pix)gram. 



^ COMP,UT£^ 
I PROGRAM 



/S /A/ /XS I 




<M AN AUXiUABY ^ 



caoaJ 
ppimo' 

' FAPSZ 



Figure A2-1. The "compiling" process 



It may be intriguing to you "to leSrD itow the proc^sor .pi^gram does its 
Job. After all, it is also a f low'-chartable process and henc^ could easily bQ 
Within bur abilities to understand it.'- Chapter & wiil sh«d some -light on this 
interesting process. For the present,, however, w^ will avoid any head*-on 
discussion of t^iis topia because our first interest must be to 'learn to write 
simple algorithms for solvfng mthematical problems in ALGOL.' We will, however, 
be making occasional commen-ts that bear indirectly on the nature and. structure^ 
r>f the processor. ' ^ » : ' * , ' . ^ 



* General appearance of an ALGOL ^ program . - . * 

*•• ^ Recall the pieces s for computing - f . 

' * . * ^' »• 

whppe flow chart we displajned in Figure Each box can be written as ^ 

\ AfiGOI^ statement,^* as shown-in Figure A2-2. ^.---^^v -^--^ 
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1 








A,B,C 










2 


assignment . 


D <- 





'output 



, ^ , ALGOL statement 
read(A,B,C); 

D := sqrt(At2 + B.t2 + c\2)', 
write(A,B*C,p); 



Figizre A2-2. ALGOL statements compared with flow chart 'boxes 

. Notice the similarity betveeorathe boxes and-the .ALGOL statements. The 
• > J- * „ • 

^ differences are largely superf-ici'^J.; - that ' is, the symbols \ised in feaeh case 
may, be different, but -fehe ideas appear to b"e the game. 

We don't-haVe to connect the statements. with arrows, tJecause, when we 
^ jwritev ALGOL statements^one below the other, we imply that theyare to be carried 
out one after the* other from top to bottom. In 'order to suggest repeating^ the 
process for many sets of 'data, we .drew a line from box 3 back to box 1 in the ' ^ 



flow chart. Ther^ is an analogy in ALGOL to accomplish* the same objective. ' 



We simply'"gi\fe the "read" statement a name or label , say STAET^^en we add 
after the "write" a statement which "sends control" to the designated statement. 
This is ^hpwT> ia^igure A2-3. 
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^mPT: yead(A,B,C); ^ 

D : = .sqrt(Af2 + Bf2 + ct2); 
write(^B,C,D); 



^ ' go STAET^ 



Fig\^ A2-3j The go. to statements directs control ^to^ any desired -stat^mfent 

In other words, we give the "read" statement ihe label START and then 
^introduTce an Ai»GOL statement. 



4» 
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go. to STAET^ ' 



for the purpose of indicating a ^ jump or transfer to that statement. The jump 
statement consists of the special symbol "go to*' fo^owed by a label. Because 
'it reads like English, the jump statement is" easy to i^nderstand and we shall 
say ho more about it at this tirae^. 

As we focus on a new language, it always takes a while fo;r its features, 
_ its special symbols and punctuation patterns to stand out cle^irly. If ygu are « 
observant, however, you have probably concluded^ and correctly,, that in ALGOL: 

(1) statements are separated by the semicoloo' 

As a reminder that the semicolon is needed' for this purpose, we will 
^ usually show the sei^colon at the end of the statement even when the 

• statement stands alone * . ^ * • 

,(2)' a statement may have a label. If so, the label 'precedes -the^state- 
\ ment and is separated from it by a colon (:),. , . 

(3) the assignment symbol is a cclon^^f ollowed by an equal sign (: = )., 
Alas^- a left -pointing arrow would have been our choice! 

(-U) the symbol for exponentiation is the upward -tpc^inting arrow (t)f 
and w^ appear to have lost the ability to use a symbol like ^ , 
- having now to use sqrt with ti;ie argument following- it enclosed in 
parentheses: , . • ' ' * 

(.5)*"""for some curious reason certain words are underlined. We cannot yet 

* gue^ss w]^t, if any, significance to attach to this.^ ^ , ' ' 
• . • * * » 

New, before taking^a more metho'dical look at input, output and assignment 
statements , and rules for :Coi*ming these correctly, we show in Figure^ A2-.U a 
complete ALGOL pifpgram and. discuss i"t briefly. ' v . 



comment Evaluation of D; 
real B, C, D; ' 
START*: read(A,B,C)5 

•D^ := sqrt(Af2 + Bt2**- 

* 

write (A^ B, C, D); ' * 
go tq^STABT; 



end 



Figure A2-^. Complete ALGOL program 
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Card layout 

Under 'control of an ALGOL proces'sor, the computer will read statement by . 

statement this program which is punched oa cards. It is a good idea to place 

each statement, on a separate card or at^l^ast to begin each statement -on a new 

card. In this way the program becomes easier to read and proofread. Strictly 

speaking, however, sin^e the .semicolon act's as a separating Wrk between state- 
ly ' ' r - ' 

ment:^, it is possible to pack more than one statement ,6n a card. If a state - 
ment; is too^ long to fit on one carcj, it may be continued on succeeding cards. 



"pri 



|. Figure shows how our program may be' punched on^ cards to form a 

)gram deck'' . ' ' ' ' 



You .will recall that today's key punches 'do ijj>t punch special cod s for 
iowar case letters. Computer implement at ibns of ALGOL which accept programs 
input on pu^iche^ cards are designed to expect only *capii;al letters. This ex- 
plains part' ot the difference you, see betweep' Figure A2-U and A2-5.' 




Figure A2-5« The program as a "deck" of ^csards 



The' key jpunch used to prepare tljese cards is not typical 



punches for characters like the : ; 
programs . In this cdse the character 



It has special 

which are useful for preparing SlGOL 
# ■ 

<- is recognized to mean'' := . 



If you prepare ALGOL programs gn standard key punched, which have chefracter 
sets sacl;i as that shown in Figure l-lo^ other compromises will have to be made, 
^^ur instructor will explain these details. 



ALGOL ranguage elements . * , -* 

* * * 

We are now re&di^ to begin ^ detailed look at ALGOL, s,tarting with ALGOL»s 
L;icial alphabet, ^or character feet, and the various types of symbols which 
may bev formed from these cl;iaracters . Among tt;ese are the numerals (constants), 
variables, labels, names of functions, operators, 'and special symbpls. 



Language^ • . ' » . ^ * 

The program of Figure A2-i4^begins and ends witfi^ thp special (-underlined) 
symbols begin and end.^ We^c^an almost g<iess the fntent of .the first two lines. 
• The special symbol comment is pla1:ed there to i.dentify, in a pureiy descriptive 
way, the title of the program. Comments* help, tcj^lce the ALGOL self-explanatory. 
The spe6ial symbol real identif>'ies the tApe of numerical values assigned to the 

r c 

variables -listed after real t In this c'a^e each of the variables A, B, C, D 

* y ' . ' f ' ' M-' 

has a value ccrrresponding to»a r^al number.' We shall r^fer to a line like 



real A, B, C, D; ' 



as a "declaration" to distingiiish.it from a statement. DecJ/Tratioos descrjl^e 
the variable^ aad pther components of the algorithm to the compiler program. 
Th,ey are', in a sense, plfssiv^. Statements, On the other hand, are imperatives 
expressing action. Only statements can correspond to the boxes of a flow ' 

In summary we see .that an ALGOL pr9gram appears to ^consist of a 'groirp of 
stateme/it§ preceded by a group of one ox more *(let:larations . The symbols 
begin and end sandwich the two groups, i.e., they-^erform the same, fu^iction" 
as parefitheses . An ALGOL program can be punched as a deck of c6i?ds, thereby 
'becoming machine readable. To dc thi^ requires 'transliteration into the "^re - 
restricted character set of the kfey puQch. -v^..^^^^ ; ' 



X - 



/ 



t ~' — — . V •■ ' 

'Naturally^ not all real numbers cah^be represented accurately Inside a com- 
puter as tjiere is only a fixed (finite) precision for ^ach* number stored in a 
word of the cgmputer^s memoiy. This precision,^ in turn, may depend on the 

.computer for y^'ch ALGOL 6o has been implemente'd. 0 



The ALGOL character set ^ 



Jhe charactei^ Khich are uaed in ALGOL are shown in Table A2-1, 

f ^ • Table»A2-i . " 

. • The ALGOL Chai^acter'Set 



(a) fjett^^s\ 

^ * ^a b ' c . d e f 

' : , ( ^ K 1 m n 0 

fs *t , U * V V 



^A C D E 

J » k' L 'm ^ N 
» • 

S T - U V 



g 
P- 

X 

G 

P 
X 



r 

'2 

I 

R 
Z 



ib) Digits 
- • 0 V 1- ^ 3 ^+ ^5 

I 

(c) Special Character's 

+ ; ■- _X I • :- 

« — • fo , • : := 

t 

' =• ^ < < > 
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Const rue ting - numerals (numerical constants ) * • S / 

A niimeral may have ^^veral parts, feome of which 'may be omitted *when not 

/ • 

essential. These arel^ * 



1. Sito . • . , 

^ ■■ . t 

2. The numeral itself which may be written with 
a') a fractioDal part only . ^ ^ ' 

b) an inte£ral part^only 

c) a fractional acd an Integral part 



3. Scaltr factor to the basfe 10 (written as* integer with or \athout 
J assign) 

Listed belowlare sorne example numerals. ^ To tke right of eacft numeral are the 
;6arts', as defined .a have, put of 'Vhich Ihe numeral isVonst'ructed. Study these 
•examples carefully. , " / 

• * » * 

Examples Constructed f aoiT\ '* parts , 

- »Q0?9 . 1, 2a 





1; 


2a 












.6^21. { 


2a 














0 




2b 


* 










« 

155 ■ ■ . 




2b 






X 










2b' 








• / 




















1, 


2c 




( 









-^^^10 " 3- ■; 


* 




means 


-.596 X ip3 ,4 




• - ; > ^ . 

^ ■ . , 5 




— ' \ ^ 

means J 
r * 




15.21.6 r. 


*. 2c, 3 




mean^ * 


15.2U6)^ lO-'- •' 
— A r '— 


10 






means ' 


: ~ 



T 



/E:cercige A2.2 Set A ' ' • ' 

. . . Identify the._ components which gq in,to formijag^ these.niifnber^ 



^ ^2.0 
-017. lU. 



1 i ' 

•'10 - ■ ; I 

- +10,^10 • , ^ ^ • .-^^ 



:h^e 



One type, of numeral which^e'are used to^ writing is 6utlawed in ALGOt. This- is 
an integer with a decimal point to it3^ight. 'Thus . ' . 

h 4. .is invalid ^ mt \* ol- 4.0 is val^d 

' . }. .-17*. is/-" y -17 'or :il.O "is valid ♦ 



A way to remember that a numeral like k, is invalid is to imagine that the 
fractiowal 
is missing. 



fractiowal part of the number^ suggested by the presence of fhe decimal point, 



- • . . r> • ,■ 

Constoicting variables , labels an<^names for functions 

Variables, labels and funttioa names are calj^d identifiers in tfe refer; 
* <• ^^^^ 

ence literature of ALGOL. Ahy of these may b| fonne|^,ae cording to the same 

rule: A letter folloired by a^ sequence*' of letters or digits constitutes an 

identifier * * * ' ' - 

" fccamples • \ ^ ' ' . " 

Harry Temp ^ ' ' 'TkSjk 

' IKE T COLUMN A15AA 

In principie t'hefre is no restriction *to the length*of -an identifier but 
from d practical considerat^tOT^,ve will restrict them t<f six or fewer letters 



and/or' xiigits . 



• 4r M 

Exercise A2-2 -^Set B 



3 -/qp-t 



Each of the folj^^^^tr^^aps of characters woul,d be invalid as an 
individual identifier: 



^JOHN ^/k T.6 F-6 



Eixplain why 




V 



"T" 



. . Variables — integer versus real 
t 

We must agree to thinly of every di*ithmetic variable of our program as 

•^-^^ either type real o?^^ype integer* - ^ 

^ At the top or "head" of every ALGOL fjrogram we will state or "declare" 
^^^^^^he typ^^'bf each variable used in the progr^B^and, in {his way, will help^fhe , 
pi'^isii^j^^^gram.Jto properly an^dyze the statement's which "follow, ^ 

>^ _ To Seclare^'the types of our variables, we simply group all those^ of inte- 

' ger type in one ,list and all those of real type in another list'. • - 



'Some ALGOL in^lementations restrict identifiers to six characters. Crthers 
accept mdjre than six charactera but keep"* track of only the leading six 
cl^ractere/ * r_ ' * 
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Examples 



^ integer I, PRES> COUIJT ^ 

real height , X, ORD, y3 ; 



The Interlining of intfeg^r and real will «be explained at the end of the 
section under the' heading Special Symbpls: 

' ^ / 

As you know, the set of. all real numbers included the integers, so a 

variable of type real may have a Value which is integral; i.e., one which has" 
' no* fractional part. T^us, legitfanate valyies for real variables 9^re 



2.1, 



.16, 



-0.11+9, 17^.0 _ 



On the other hand, a variable of type ^integer cannot ha"v« a value with a 
fractional part. Thus, the values ^""^ 

. .. • A, 



obviously cannpt<be assigned .to variables declared to be of type integer. 



N ames of standard mathematical functions ' - ^ 

Certain identifiers "are rese2rved to ref^r to names of standard irjathe- 
matical functions as shown in Table A2-2. Notice the special way we ^ell , 
these functions. • , . ' 

" * Table A2-2 ^ ' - ' 

Standard Mathematical Functions 



identifier 
. (name*) 



meaning ^ ^ « 
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1. aba- 

2. sq.rt <v 

h. exp 



sm 



CQ^ 



^ab^olute ' value 
square root 

logarithm to the base e ^ 

> 

powers of e, or exponential 

sine of an 'an^le whoq.e measure* is 
* given in radians 

' cosine* of an angle whose heasure . 
^ , is giVen in radians- 

• ' ' ' r 



' A2-2 

' • ' ' f; 

Table A2-2 Standard Mathematical Functions., continued 

' > 

^ — ; c ^ ' 

. ^ 7. arctan ^ - • . arctangent, or principal angle in 

radians of a given tangent 
^, ^ value. ' r$hat" is, arctan(x)/ - 

'4, • gives a val^e in radians*'cor- 

\ * . / * responding to tiie principal 

/ \ X ^ 

t - '\ angle' whose ♦tangent is x;. 

8. entiev"^ ^ greatest integer f\mction. (That 

1 • ' ^ • ' ''is, entier(x) means [x].) 

't ?. * sign sign of a number. tThat 13, sign(x) 

means x/|x| , unless x = 0 
^^♦^4,'"* '( t ..^ "'Vi * J ' in which^case sign(x) means 
$ 0.) 



By now you^are probably fajniliar with all of th^se mathematical funct^^ns., 
"entier" is the name ohosen in ALGOL for the greatest integer function which' 
has been discussed thoroughly in chapte* 2- The functions "sin", '"cos" and 
"arctan" will of course be familiar to'you if you ha-^^ studi^ed* trigonometry . 
A use for the "sign" functiou, perhaps 'the least familiar of these, ^ was sug- 
'gested in section 2-5-* ' ' * ' " 

When we use any one of these' 'standard functions in an ALGOL statement, 
the resulting 'machine code (target program) automatically car2;4^^s out the 
•evalue^tion of the speci-fied function. ' t 



To writhe arithmetic expi^ssions and assignment statements we need symbols* 
for arithmetic operations. The characters chosen for these operator symbols 
''are: . ' , ^ • ' ^**"' 

In Tpfele A2-3 we show a list of the symbols we shall be using for the vari9us 
arithmetic operators. For convenience j.n latei^ discussion they a*:^ given^ in 
hierarchical order, that is, in descending order of precedence which is the 
same in ALGOL as it is in our flow. chart language. We have also included the 
assignment symbol := ^ in this group.. It is a binary operator, but, of covXrse, 
no\ really arithmetic in nature;.^ 



"fpronounced on-t-aye 

ERJC ■ . 



same level 
of precedence 



same level 
of preceden(ie 




'V iTabie A2-3 



AHjOL Ope2:fitor Symbols 

Meaning ^ 
Exponentia^on • « 
Multiplication ^ 
Division (reaQ.) 



Division ("integer 



Addition 
Subtraction 
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Ati means siferi(g)xC |||r 



/ ' A + B . 



> . 



Assignment 



A/' •: = B means A 't- '. 



Special symbols^ 



v 



/ 



Certain symbols which at^first glance ,re'semble English yogfis appear under- 



lined in ALGOL pix)grams. Je^ have aj.ready ^,feeen ^ few ^aa9ahpl&: 



begin 



end 



comment 



real 



i^nteger 



goto. 



"fhese symbols play a special roie i|f AdfiOL programs and are not to be confused 
with identifiers. They will not be confused with identifiers if they are ' 
marked or printed in a distinctive fashion. Teijcts printed commercially visually 

use boldface letters or p:^ace such symbols in CLUotes . In^this bodk we underline 

^ ^ I " ' 

such symbols • / ^ 

/ 



The following ALGOL statements/ 




whilq^ somewhat confusing at f irs/t (giangfe, are perfectly correct here. The 
word real is used as a statemen"|{ la^ 
special symbol real. . 



and is not at all the' same as the 



The ALGOL special s;^ols (which were described above as underlined in this 
book present a pi^obieirfj for 'pun(;h card, input. There is no way to underline on a 
keypunch. Burroughs ALGOL solyes this dilemma by decreeing that special 
symbols may not be used'&s ide 
reserved words. » "Real" cannot 
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ntifiers* In other words, special symbols are 
be a label in Burroughs ALGOL. 



A2-2 



\ 



Spaces between cjidracters ^lay ^ part in ALGOL 6o. 'The identifier, go to, 
is the same as goto and the specif symbol go to is the same as goto . However, 
in some implementations of y^LlL^lTsuch as Burroughs ALGOL fpr the B5500, spaces, 
act as -separators. In Bilr^ughs ALGOL some is a single identifier while so me 
is, a sequence of two iden-^fiers; the first is "so" and thJi second' is "me". 

It ig y^ hahly/a. good idea to avoid using spaces inside variables" or con- 
stants . ^ In this ywa/ our rules for constructing these components aie, in harmony 
with the other /languages . • 
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_A2-3 . Input - output statements " " 

^ Now that you have become somewhat accustomed to the appearance of ALGOL 
characters and to their u^e* in 'tliV elementary components of tl^ language, like 
numerals, identifiers, and operators, yo'a are :)r€taay .to study^ the*^hree impor- 
tant stateme n't types, input, output and assignment » '-'-r-^-'\^ •< . 

You haYel^^already sfeen examples of ipput and output statements/ namely: 

// • ^' reaA(A, C); " 

and ' ' * , ' 

/ " write(A, B, C, D); ^ 

i' • ^ ^ . '* 

, ■ The statements are simple in form. They always begin with the word 

\ ' ' ' ■ 

read 



write 

• .1 * ' ' . ^' ^ ' 

Following 1?his we write, enclosed mi parentheses, the list of variables 

whose vali.es are either'to be r^ad or printed. If there j^s more than one,- 

this list is separated by conmias^ will, not limit the number "'af'^^ist eje- 

I, ments.'of an input or output list^^^'V.. . ^^'^.^ ^ 



i.e.. 



jEn this arrive at* the general f on^ of an input or output statement, 

\ y ^ 

^ read{input list); ' 

;v5rite( output list); ^ • ' ' 

, For .a read stalTemeiit, the list elements are the variables whose values^ 
are to be assigned fropi the input data^ while for a write statem^tff^t;he . lisi * 



elements are' the variables \jhos^ current]^- assigned values are_ipv.be printed* 

Strictly speaking, ALGOL 60 does not specify any p^irticular fom for the 
input or output statements or any particular standardli^e"to suggest input 
or output. The forms we are describing here merely^ represent a typical ALGOL* 
'computer implementation. In some implementations, for instance, "yrint" is 
used in place of "write"* While, the names for 'the standard mathematical func- 
tions (Table A2-2) were ch9^ by those individuals \^o specified ALGOL 60, 
the identifiers like "read" and "write" are names of procedures chosen ai^d 
defined by the persons who developed the particular j^lement^ition . ^^These 
pro;;edures are special programs which are made available automatically when,ever 
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they are mentioned by name in an ALGOL prcgram. Ob:vlously^ you should' Iwn toC 

i .» ^ , ' ^ 

use the procedure names ahd statement form^ which are cur-rect for the implemen- 
tation you are using':' "' ' " * e * . 

Execiiting a read stateroeat - ' • ^ *' 

^ ' » ' ' * 

» In this (fiscussion wq- shall a^ssume, as in the fiow chart' text, that input 

data originate on punched car<is. The effect cf executing a read statement^ is 

as follows: • * * 

t 

1. ,First we assume a card is 'in position to read by. the computer's " 
input device.^ -If not^ the execution of the program 'ceases immedi- 
^ vat^ly. In some, but not ail^, systems the computer might t)\en print 
some message. like 

r* ' " j ^ - , • \ . . 

"Ya;5.HAVE'KUN OUT OF DATA" . ' • ' ' 

or > ' ' ' _ — 

"ALL toRJT DATA HAVE 'BEEN PROCESSED" . ' ' 

a. The contint^s of the card ready to be read is th^ traJj^ported 

to the 'compu:ter memory, where it is examined «ie numeral at a time 
; from left to fight. A ^>«;e-to-ohe match i^ then made between the 
\ numerals on, 'the -card and the variables oi* the input list waih the 

result that each variable is assigned tj^ matching value. What 
happens if the* card v fails to contain enough .numei-als to mat^h all 
\ the variables of the input list or vice versa? This wiil depend on 

the hature of ^the read procedure^ which is likely to vary Vith each 
ALGOL implementation. However, in most cases, anoth'^ card will be 
read and numerals from this card matched with the as-yet-unmatched 
list elements. The process continu^^s with as many cards -being read 
^' as necessary until all the list elements have been^assigned values. 

,When tjiiis has occurred, we say that the list is exhausted^ Execution 
of the read statement then^ terminates even if somej]^merals remain 
o^the list data card that was being read.^^ |- 

At this point^some examples can help us see h^V this matching process is 
darried out, ^ 

Example 1 ' ' * * 

~* ^ 

* Study Figure A2-6 whire you ,see a read statement and a picture Of a card 

that might po/S3ibly be read as a result of exJiuting the given statement. 



J. 
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read (NUMfflR, PAID, AMOUNT); ^ 



1502, , , li+5*.72 



-169.1^ 



\ 



Figure A5-6.^ Picture of a data card and a read statement 
The effect of/ executing this read statement is-^the sama as if the follow- 



ing assignments had occurred successively. 



NUMBER 




1502 






PAID 


<- 


li+5.72 






AKOUNT 


<- - 


•l69.li+ 



Different read procedures may scan the contents of data cards in different 
ways. In the sch^e suggested in Figure A2-6 the compiuter is expected'to recog- 
^ ni*ze*'the end of one numeral when it "sees" a space. Since there are many other 

schemes in use, you should learn the rules for punching data, often called 
'. formatting, v^ich are used vi^h your system. In our text we shall presume the 
. system we are using is the very simple one we have 3ust described* 

^bcample 2 . / 

Study Figure A2-t where yCu see a read statement al^n^ with thr^e data 
'<?ards which 'might possibly be r^ as a result ol^execyti^g the given statements. 

read (A, B; .C^ D, E, A, G, {I, S); * . 

/ ih.k 1^.64 '17.7^ 18.9^; 20.96 
/ 1^.73 >15.9 ^ 




-FiSJ?(^A2-T\- Picture^ of three data cards and a read^tatement 
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The effect dHyexecuting this read statement is the same as if, the follow- 
ing^ nine' assignments had been accomplished iri order: 



*fi35st card is read 



-15. V 



lit. 73 



^ne'xif card 'is r^ad 



E 15 



• next card is read 



G -i— I5.6if 



H — 17.7^ 



s — 18.9^ 



Notice that two assignments are made for A because it happens to appear 
twjce, perhaps as ,a result Xif a key punch' error. Followi^lg the principle of 
destructive read-in the current value for. A at the end of the input step 
would be lh,h and not ^^l as perhaps desired. • 

Ifotice selso that dr^t list is^-eochausted when 18.9U has been assigned 
to S. The last value on* the last card, 20. 96, is then ignored. . . 



' Exercises Set A - ' r ' 

We imagjlne a class of very simple problems to be solved on the computer. 
Let the flow chart for each of these have a structure identical with the one- 
in Figure A2-3 . In the following exercises you are given box 2 in detail. , 
Your job in each case is to decide what should be in box I. Then « 

(a) wri-6e an appropriate read statement. 
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(b) Draw a picture of a typical card ^ich could be reaS (in the system 
you wUl be using) as a' result of executing the read statement \^ich 
you have 'just written. ^ > . - - . * ^ ' 



^ .Z —2.5 



2. 



^ i X (i 1 1) + j _^ 



3. 



Z ( (a X X + B) X. X + C) X X + D —i* 



— Am - |) X n 



I 



6. 



• 2 



^^^ 3>i^l59 ,x r2 _ xVr^ - + r^ X pm) 



. Executing a write statement 
— tf • 

- Writing i^ analagous to' reading^ but- in a reversed sens^. *The .valuer 
that currently ^ssigned^.to each element of the output list will appear typed 
or prihted across the pag^ %the output device. When each number is copied 
from its plaSe in memory it converted ii^or printing from its internal repre- 
sentati^ to* fhe desired external fomy ^ 

^^ou may hava. noticed that ^Yi^^XX^ statement mere^/ itemizes the varia- 
bles whose' values are to be written^. It gives no 61ue as to *how the numbers 
are' to be dj. splayed on printed paper., Write proce,dure& in common use merely 
print tS*Knumerical valued acVoss'the pag// onei^for each item in the list- 
say up to Am items per line. If there are more than m items in the list, 
additibhal jlines will be printed, with up to m items on each succeeding 

•line. We^lddl normally assume m = U iA our illustrations . The magic number 
m may vary depending on the width of the printer carriage that is used., jYou 
should consult your instructor for more det&iis because' some computer imple- 

^ mentations haV^ more elaborate write procedures than others, ^ich would make ' 
it possible to obtain more elegant and more reaSable printed output. ^If this 
is the case with your computer, no 'doubt your instructor cans furnish you with 
a booklet which adequately^ details the use of such fancy write procedures. 
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Example ]f ■ 



Examine Figure A2-8 where you will see an example of a write statement ** 
and what it might accomplish when executed* Notice \he uniform spacing of 
the numbers across the •page, each number allotted the same width with^the 
fractional part always given to four decimal places. • How. does the computer 
loiow to do this? The answer is simple. The -v/rite procedure arranges for this 
"foroi^tted" appearance for us automatic Shy. Write procedures vary from one 
implementation V> another. Some, for instance, will print more decimal places 
others fewer. These^ are details which are left for you to determine because 
they are related to the particular computer system you will "tee using. 



/5 



write (NUMBER, AMOUNT, PAId); 



60 



/20 



o 


1502.0000 


-i6q.ii^oo 






o 










o 










o 




' — ; 






o 













Assumes current value 

•of NUIAer is 1I502,. 

of AMOUNT is -I69.IU, 

of PAID is, 11+5,72 



Figure A2-8. Example of a write statement and a possible lirie 
of prin\;ed results caused by execution of' the 
write statement 

^ write (A, B,. C, 'D, E, A, G, ^ 

i / 



0 










0 


lU.UOOO 


( 7.^000 


) ^15.U000 


1U.7W 




0 


15.9000 


VlU.UOOO 


/ 15.6U00 


17.7UOO 


\ 


0 


I8.9I+OO 










0 




r ' 








0 
















/JU> 

O 



Shows printed values tor B 4?^d A. 



Figure A2-9. When executed, the write statement shown here 
causes three lines to "be printed.* Since* A 
appears t<51ce in thjj^ output list, the first 6nd. 
sixth printed values are identical. 
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Now suppose we wish to print ^ say nine values^ as* a result of executing a 
single write statement. With a write procedure controlling .the printing of 
up 'to four items per line^ we may e^xpect output like that illustrated in 
Figure A2-9T^ • * \ 

When the write statement is executed, values are copied out of memory on^ 
at a time from positions associated with A/B, C, etc. Each copied value is'^ 
1:hen converted for printing in the desired external form, as illustrated. 

If a line printer device is used then, when four such numbers have been 
converted, a complete line is printed a^once. However, if a typewriter device 
is used, each number is typed ac soon as it 'has bfeen converted to output fo^. 
This^ difference in behavior has no vital^consequence as the net effect is the 
s.ame. In any case, when fOur i^tems have been ^^^ensed with, the line is 
printed. Values are then copied fix)m meijoiy locations associate wiiti four 
•more list elements and pr^inted. The 'last valug isj th^^?«/copied frota^ memory . 
At this point the procedure discovers- that the list is exhausted, l.e\, no 
more items remain to be copied. This discoverir then signals -^he end of the 
'process. Execution of the write stategient is terminated and the computer is 
free to execute whatever statement happens to be next in the program. 



Exercises, A2-3 'Set B . " 
_ ' . % _ 

1 - 6. « In these six exercises you will continue with the development you 

began in the preceding exercise Jfet^. Fojr^^e^ach your job now to decide / 
what should go inside box 3 of the flow chart. ^ Then" * ^ ~ • ^ -s > ^ - ^ 

(a) 'write a write statement which, if execifted, .wouW carry out the 
^ V intent of box 3^ / 

(b) for the, data you used in the, fi3;st set 'of exercises, compute the 

<j ^result which ^ould be printed and show* how it would appear on the 
printed page using the write procedure at your laboratory. 
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' Assignment statements » ^ " , ' ' 

We shall first examine .the parallel existing between our previously de- 
veloped fL^w-chdrt concepts, of assignment steps and those of ALGOL statemen-^s. 



Flow Chart 



specific _^ l^A2-.b2 ^ - , 

ex^imple 



ALGOL 



L :^ sqrt(At2 + Bt2 + Ct2); 



'genera I VARIABLE EXPRESSLON 

form 



variable := 



-arithmetic 
expression' 



' The ALGOL identifier is a character string built up of letters and digits 
(up to SIX in all. .with the first character being a letter). 

v • • ■ , > ' 

^ The ALGOL arithmetic expresfefon corresponds to any meaningful computational 
rule which uniquely defines & siggle numerical value-. Th^fe Will be a few^ y 
importanl; restrictions to observe in writing such expressions correctly." Before ^ 
considering thesQ^ let us see hpw several flow chart Examples are rewritten in 
ALGOL. ' ' ^ . 



Examples 



* Flow Chart 



— X — 2.5 



2, 



3. 



— Z— 2.5 + T 



t — 



a X b 



H X^2/(Y 



' ALGOL 
X 2.5; \ ^ 
Z := 2.5^+ 

J / 

t := abs(a) X b/c; 

Q := sq.at({m'i. 9/2) X r)); 

X := 2/(y -h A/y); 



6. H AREA— X r^. - (s X /r^-'s^ + X PHl) [— 



AREA ;= 3.l'tl59/2 X r|2 - (s X sqrt(rt2 - sfj^^-t rt2'x PHI); 
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' ^ ! ^ 

■ ^^J-eg;? ftr deciding the " type " of an evaluated expression 

When we discussed and illustrated step by step evaluation of arithl 
metic expressions injj^ction 2'h, we did not need to cons;Lder the questions of 
, operand type. All our nj^bers were thought of as being available on a handy 
- scratch'^pad. At each step in the evaluation if one operand of a binary pair 
^ happajAd to be an integer and another a number which had a fractional part, we 
siinj?!I^took this in stride and added, subtracted, mltiplied or divided as the 
oixei;^r symbol required. The con5)uter evaluaUon of an ALGOL expression, 
follows along similar 'lines, but what are these specifically? 

To understand exactly what the compute^ does ih each case, we need to ^ 
realize that its action depends to some extent on which operator is involved. 
The operators fall into tHree classes and we will treat each separately. 

class 1 + , - , X 

. V class 2 .J 

class 3 *" 

class t ^ ^ . 

Class 1: X ' ' . • * 

There are four possibilities because each operand may be either type 
real^ r type integer. ' . . * 

The rule- is: ♦The operation resulte Xp- a number which is type integer if, 
find only if, both operands are integer. In all three other cases the result * 
is of typfe real. . \ ' . * 

Let u^^ee 'how we may project this coneeRt in tabular fashion. Let the 



operation be' depicted as 



bhis coneejot in 



V ; ^ ^ A O-B , ^ , • 

- where A stends for the left-hand operand, is an operator symbol which 

' in this case represents +, or X, and B ^stands for the right-han;^ 

operand* »r ' ' 

^ Table A2-l^ sho^ at a ^ance the type of result obtained. In the table 

we have abbrevl/tga real as R and integer as I. 

■ . ^ ■ ■ r- ■ ■ 
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Ta'ble' A2-k ' 

Types resulting from +, - or x operations i^n 





' K 


I 




R 


^R 


I 




I 



Clais ^2: 



f # ' . 1 • . 

It is best to think of the divisi6»', A/B as- the pultipli cation of A by* 

* ' / -1a ^ * 

the reciprocal of ' B, oi^ A x (B j. When we ^ this, we see that the result 

> K ' 

of, division is always of type real . Table A2-5 displays this case, 

I • ^ . . • ^ "Table A2-5 

f ^ • ' ' • ' . 

! Types resulting from / operation 



X 


R 


. I 


R 


R 


cR • 


I 


R 


• R 



Glass 3: . . 

The symbol f is reserved for a special integer division, i.e,^^ when both 
operands are integer, •yielding a result of type integer, as ^ shown in Tabl^ A2-6, 
The operation is ao^ defined for any oth^r type combination. 

Table A2-6 . \. 

Types resulting from -h operaticJn 



J 



Integer division is- related to the greatest integer or 'Ibracket" ([ ] ), 



function, 
k 


as can b^,^seeh 


fixjm thfe following equivalet^^^s . 






* ALGOL 








ExpressicjiH ' 


Computed Value Mathematical Equivalent 


1. 


9 ir 10^ 


' • 0 • 


T9/10] ' 


2. 


-10 -c,(-10) 


1 


' [10/10] 


3. 


11 10 


1 


[ll/lO] 


h. 


10,-:- 1 


10 


' [10/1] 




-5 - 10 


0 


-[5/10] 


6. 


-15 - 10 


? 


-[15/10] 


' 7. 


10 ^ (.1)- 




-[10/1] 


8. 


1 (-10) 




-[1/10] 



ALGOL'S integer division yields^ remainderless integer quotient with the 
aame sign ve would ordinarily obtain fo,r the real quotient. , For integers A 
^ and B it can be expressed mathematically as . . 



A B = TRUNK(a/b) = sign(A/B). X [ |a/b|] 



The right-hand side /lan be written in ALGOL as: 

sign(A/B) X entier(abs(A/B)) 

recalling that both the entier and sign function were defined in Table A2-2. 

It is instructive to ntftiee that for A/b > 0, A 4- B and [a/B] * are 
computationally the same but for A/b < 0 they are not. \ ' 

' Class 1^ - ' ' • * 

- ^ - - . ' ''^-^ ) 

, Finally, we ha^^ the operator f , denoting exW^ntfation such as Af B.. 

, Many possibilities a-rise in this operation, dependin^;i'the sign of the. A- 

and the type aoA^sign of B. * ^6 
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ESyrcises A2-^ ' Set A 

1. Complete the table by filling in the type^ of the result, or "undefined".' 



Ope 
A 


rands 
B 


1 

Operation, - 
0 


type of ^result 

ao'b. 


* 2 

100 
6 . 
6 ■ 


3 

.09 
.1^ 


+ 

/ 

•* 

•5- 


r 

it 



I* We vish to verify the mathematical formula, for integer diy^ion in each 
of the eight ALGOL expressions in the preceding discussion. The first 
expression, 9 10, is HS-ified in the table* shown below. . Your job is 
to fill out the rest of- the table for the remaining seven expressions, 
scanning each froa left to right according to the step by step evaluation 

^ scheme .developed in Section 2-5 of the main text. 







Verifying that A f B = 


sign(A/B) X entier(abs(A/B)) 














m 








Case 


A 


B 








© 


© ^ 








(A/B) 


sign{A/B) 




abs{A/B) 


entier(abs(A/B)) 


A f B 


1 


9 


10 ' 


0.9 


+1 * 




0.9 


p 
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^ Exercises A2«U Set ^ [ ^ 



Study the following cases in-order to fomilate rule^^to explain exponen- 
tiatiori. The rule h^s nine ..part^^. Hint: The first 11 cases have td do with^ 
raising^ integers dr real numbers 'to integer powers. Cases 12 - 22 dear'with 
real powers onIy> 



1. 6 1 2 / means • ^ 6x6 



0. .(^^ ^ " 



-6x6x6 ' . 

'3- (-6)] 3 " ' (-6);x (:6)_x;(-6) 

^- . 6 f n 6 X 6 X. X 6 Cn times). . 

■5. . • 2.5 t 3 " - 2.5 X 2.5 X 2.5 

6. 3 1 0 ■ • ■" * 1 

7. it-a^ f a- . „ . ^ I 

8. ^ t (-u.25)t'o " ,1-' 

9- 3t.(-2) " ' ■ y lA3 X 3) 

10. 2] [-^) . .. . ■ . 1^(3 X 3 x,3 X 3) 

U. - 2.5 1 ('-2) " 1/(2,5 X §.5) . . ' 

12- 5f2.0 • . " ' ■ exp(2.0 X-ln(5))l 

13- 5.M2.3 " < exp(2.3 X ln(5.U)). 
lU. Of 3.1 - ■ " ^ 0.0 

^5- OtO.O is vujdefined 

16. Of (-5iuj " » " 

17. (-5:2)t3;2 ^/ " " ; ' 

18. (-6) f 3.2 " M . - . ' " 

19. (-6)fo.o " " ^ ' 

20. (-5.2) } 0.0 / " - " ^ * 

21. ' (-16.1) f (-3.2) ' " ''^ • ' 

22. (-6)t (-3.5) ^ " " • * 

I ^ ^ • ' . 

•Recall Table A2-2. exp is the exponential function and In is the natural 
logarithm function.. The^ expression exp(2.0 X ln(5)'). means "e raised to a 
power which is 2 times the natural, logarithm of- 5." Natural^ logarithms,, in * 
case you haven't alread^^ seen, them, use as their l)ase the number e' = 
2.71828..., raiher than "the nunier 10. Using base Itf, we mean the mathe- 
matical expression, 10^ ^ ^^SlO^^ 
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Hint-: let i be a number of type inte ger 
let r be a number of type real 
let a be a number of either type , 

Divide the rule into two parts\ Let category 1, govelring Cases 1 11 
above, be represented by a f i-. Now for i > 0, fo2^ 1 = 0, and for 
i < b try to specify the type o? a^. If you need to. break these cases 
further into subcases depending on the type of' a. Next let category 2' 
cover Cq^es 12 - 22 above and be represented by a f r. Notice that here 
the, relevant factor is the value of a. Is a > 0 or is a = 0 or 
is ^a < 0 ? Subdivide^these cases if necessary until you can either < 
specify that the result is i^efined or you can d8l:ermine wthe type. 



Function references 

have already bepome acquainted with three of the basic components of 
arithmetic expressions, namely, constants, variables, and operators. 

T^ro o,ther importfiint components are parentheses and function references . 

In ALGOL we use parentheses in several different ways. In the expression'' 

zAy^a/y) 

the parentheses are used to form a subexpression that forces a desired order- 
ji^i^>4iA^he computation. In tjie expression 

' sqrt(a) X b/c 

parentheses are used in another way--to enclose the argument of a function. 
A reference to a function value or a function reference, for short, consists 
of the name of the function followed by a pair of parentheses enclosing the 
argumenlj. • This convention in ALGOL is used for all functioQs. 



^ Since feome functions are ^ven special marks or symbols, like | |, -T, 
, which ^re not available in ^he ALGOL character set, it imkes good sense 



to use the parentheses. 

Here are some examples of i^ypical .'function references: 

- " sqrt(rt2 

. cos(PHI) 

sin(6.4) ' ^ - 

' . ' . . entier(3' + N) 

abs(X) 

They are edsy to type from left to right as strings of characters . Remember 
the rule : / Every function argument must be placed inside parentheses even if ' ' 
it is a singlg numeral or variable ! , * ' ' 

Hov are parentheses used in the expression 

s(irt((m - 9/2) X n) ? v. , 

You.^ can probably see th&t the outermost parentheses serve to enclose the argu- 
ment of the sqrt function. This argument is the value which 'will be obtained 
upon evaluation of the expression ' 

(m - 9/2) X n 

in which the parentheses are employed for^ ordering computation. 

^ As you" can 'see, a functipn argument* may itself be an ALGOL expression of 
decided complexity. In fact, in some of the expressions in the next ^^cercise^^ 
the argument of a function is expressed in terms of the value of another func- 
tloii.^ lliiB is perfectly permissibly \xi AIXK)L. Another \xainple df this is " 



. exp^3^^in(A))^ . 
argument of exp 



} 
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Exercises A2-U Set C 



We- would like to express A" 
^3/2 

,3/2 



3/S 



in ALGOL^. where A > 0. Keep in mind that 
is in this case the same as VA^ . or (A^) . All of the following 



correctly express A^'" in ALGOL. \Some are awkward. ..Some ha\re superflu- 
ous operati^ons. Comment on each and fchoose the one which appears to be 
the most efficient computatidpally . ^' * ' . ' 

(a) - abfe(Afl.5) ^ ' ' * " 't ' ^ 

(b1-(Af3)t0.5 ^ , ' ' , - , . ,^ 

(c) sqrtCAfS) ' .'i " \ 

(d) abs(sqrt(A43)y 

(e) (Atl.5) '{ ' 

(f) abs(A)tl.5 \ ' ' 
'(g) sqrt(ab3(At3))^' . ^ ' ^ 

If A can have negative values,' which '(^f the seven ALGOL expressions 

' * ^/2 

given in the jfreceding exercise correctly expresses (A^ ? If more ^ 

than one, which is simpler coraputationlilly? Explai^n.^ 



Unary minus ^ 

In Section' 27U of" the flow chart text you learned tol distinguish between^ 

the unary and number-naming minus 'on the one hand, and, th4 binary minus on the 

other hand. If a minus sign appears at the very beginning! of aia expression or 

immediately following a left paisenthesis, it is either a uAary minus or a 

« 

number-namingi piinus. It cannot be a binary minus. 
Here*are some examples in AlhOL statements. 



(1) 


• Q : 


= -5; 


(2) 




= -(A + B); 


(3) 


Q 


= -Af{-C); 


(M 


•Q • 




(5) 




.= 


(6) 


Q 


.= -h\{2); 


(7) 


Q 




(8) 


Q 


:= sin(-A + 
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Note that (i^.) assigns a value of +l6 ^to Rem/pibeAng from lii)le 2-4 
of the flow chart text that exponentiation takes prece4e/ce over unary minus, 
we see that (5), (6), and (j) each assign il6 to (y* Similarly, -A f (-C) 
is the same as -(A f (-C)). Two operators may not bfe Written sidp-iby-^ide/ 
• Thus, A X is 'invalid. We must write Instead A X (-B) or perhaps >A X B . . 
Similarly, A f 4- C or A f - C aye both, invalid. * . 



' Exercise 2'k Set D ^ , 

~ / . 

Correct the followjfng thr^e invalid ALGOL statements. What problems 
arise in correcting the'second an^d third statements? 

(1) .T := B X -A; 

^ (2) F ^= C/-3 + h; 

(3) G := A*+ B X (C X -F/d); ' ' , ^ 



The order of computation in an ALGOL expression 

We have not deferred this question because there is anything special to 
say about ALGOL that is different from what was already said in Chapter 2. 
On the contrary^ the rules for the o^der of^ computation are i)recisely ^tfie 
same. Close the book, and try' to reconstruct them. Then compare with- the 
following. , * \ r ^ ^ ^ 

1. When parehthe^es are iTsed to nes^ one subexpression inside another, 

evaluate the nested sube^ressi^s from' the innermost to the outermost. 

I 

2. Within any one subexpression evaluate in descending order of precedence: 

Highest function reference 

/ I (exponentiation) 
X, ^ - ^ ^' - 
Lowest ' +, -« 

In case of a tie In precedence level (within any subexpression) perform 
tjiose operations in the tie from left to right-. 
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A2-6 Meaning of £s^^ 

from the atcpression on the right 

Is it poss^ibO^e to convert a numbeir f;^m integer to reaL r^n:e^ta4>ioa^j> 
vice yersa? ^ Notice^ tHfet^ until now all the assigniient statements we Jia^^^Mus- 



^Urated were homogenebus in the sense that the variabljrpicth^^ le/t of. 
sigaand^the number evaluated from the expression on the rigKTCere bo- 



.the (:=) 
both of 



J^he same tyi)f (real or integer). Two other obvious possibilities in ALGOL are 
. both legal! 

. In short, we -have four eases: 

(a) real variable ;= real expression: 

(b) integer variable := 'integer expression ; 
^ (c) real variable := inte'ger expression;'- 

(d) integer variable := real expression ; 

We liave no'thing further to say about cases (a) and (b). It is (c) and (d) 
we are^ interested in because such statements can be used to convert integers to 
reals and vioe versa. 

^*In ca$e (c) the number assigned to the real variable simply has no frac^ 
tional part. 

Example 

reaf T; ^ 

'\ : — 

J , \ integer V, K; * 

... W := 3 X 6; 



Observe that thi^ s^g^xence ASed&^-larations and statements leads to a 
. reai value for T equal to 22^. m other words', the integer sum of V + W 

results in the real value for having a zero fractional part. 

In case Cd) the integer value assigned to the variable is rounded in the 

sepse dfescribeid in Section 2-5. In other words, when the expression ^is real, 
-and the variable is integer 



really^^ans ' 



variable := expression; 



variably -^-^entler (egression + 0.5)/ 



mat this means ii.§. that if .is an integer variable and R is a real 
variable, the ALGOL statement ' . 



•erJc 



I,-:= A; 



is equivalent'to the flow chart assignment 



"^-^ / ^!^T>' » 



or 



I [A + .5] 



Nelthefr of these is identical to 



Why? Because. the flow chart variables I and A do not have specific 
digital i-ep:j:eser^tions associated with them. Hehce, no rounding can'be im- 
plied in simpie flow chart assignment. . , ^ ^ 

Example 1 ^ " 



7^1 DIAM; ':^^^>i'^'^. 



integer CIRCUM;^;^>..,^*-. "K. 
DIAM := 5-9; * 



. • CIR&M : = ' 3.1^159 X DIAllfj^'^^^l 

This sequence of ALGOL statementg^s^iedds tof& .value'^s^jf 19 for CIRCUM. 
and not 18.535 which would be the-,^e^ua;i^fclrcumference 'c^ a circle .with a * 
diameter of 5.9. • "'^ . 

• ^ ■ • > ; 

Example 2' • _ ^.^ . • 

integer OWE; - ' 

^ * ^ real BAL,, WITHDL; 

\, ' , * ; BAJ, :-^5p.97; ^ ' ^ ^ i , 

WITHDL := 92.ii9; r ^ " ' 

OWE := BAL - mTEVf^' 

Assuming BAL refers to bank balance, the. overdraw is ^kl.^2\ The dif- 
ference between BAL- and WITHDL is -ill. 52. The rounded value assi^ed to OWE, 
i.eo '^?i^tfer(yi4.1^.52 4- '.5)^ = eptier(-te02) =: --li2. ^ ^ " \. 



\ 



Exercises ^2-6 

1. WhicA of the foll^i^ing statements are iavalid ALGOL assignment statements? 
Explain. \ * ' • - 

{ky Tl := T X VAR3A.; 

*(b) A := exp(AU*EXPtJ*0 + A3*EXPt^.O); 
- , ^» 

(c) ' Y := ln(sin + i^.O); . ^ ^ . 

(d) J := J. + l.Oj , ■* ., 

(^) I :■= 1/K ' ^^ 

2. Assuming l("b) above is valid, what changes would you propose in the 
interest of efficiency? If not, correct 1(b) -and then improve it. 

^ ,In each of the following/ write a sequence of declarations and AI^OL 
assignment statements to accomplish the, indicated task. 

3. Assume the - real variable V is assigned values which are always greater 

than or equal to zero. 'Assign to>,FPART, which is to be a type real 

' \ ■ ' 

variables, the fractional part of V. ' ^ 



U. Assign to INPT, an integer variable, the integral part of V. V is a 
real Variable whpse value is never negative. 

^ 5. Compare tlie f|Dll6wing*ALG0L statement with the accompanying flow chart 
box assuming ' and 2 to be integers. * 



J I/K 



Are they the same? If not, draw another flpw chart box to conform with' 
the ALGOL statement. 

6. Car;ry out the -instructions of Problem 5 for the -ALGOL statement 



J := 1/K', 



ank the same flow chart box. 
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A2-7 Writing complete ALGOL prograafe - 

Remember the $20 bill probiem? You are now able to write ALGOL statements 
to' compute how many $20 bills are contained in (real) PRICE of your Jersey cow. 
Wr.ite your own version^and then compare with that below. 

comment WHAT Tife JERSEY COW Wi;^ BRING; 
. integer UUM20 * 

s. ' ♦ ■ 

real PRICE, RNaM20 ; 
* , RNUM20 := PRICE/20.00; 

'NUM20 entier(RMJM20); • ^ i 

A complete ALGOL program posesses a certain "structure". Before giving a 
formal description o*this structure, we first form a complete program for the 
JERSEY COW problem as shown in Figure A2-.10. We also put a label on the read 
statement and add a go to statement ""to make the program loop. 

^egin- comment WHAT THE JERSEY COW Wilt BEING; 
real PRICE, RWUM20; 
integer NUM20; ^ • / 

again: read (PRICE); 
» ■ comment PRICE is given ih dollars and cents; ^ 

R1TO20 := PRICE/20.00; ' . ' *~ ' * 

^ ^ , comment RUUM20 is the real number of twenty dollar bills; 

™20 :c: entier(RMteb); : . . * * 

comment NUM20 is the answer; 
wfite (PRICE, NUM20J; 

gj) to again; ' " / . T . . . *' 

end ' ' "t * ' ^ _ ' 
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Figure A2-10. The Jers.ey Gov progr^ajj^d in ALGOL 



A conQ)lete ALGOL pit>gram« must begin with' a begin symbol and end with^an 
end syniboX. There are no exceptions. \ We might say that begijar and end sandwich, 
the declarations and statements. Notice that declarations precede the state- " 
ments. -We might think of*' the declarations as -fhe "head" and the statements as 
the '^body'l the program. A structure, then, begins to emerge as suggested 



^irr Figure A2-11. 



begin 

J head 



body 



end 



an ALGOL program 



Figure A2-11. Structure of a complete ALGOL program 



i 

Now ^we ^introduce the concept of a "simple" and a "cqmpound" statement. 

The s imple statement ^ ' ^ ^ . 

We l^ve seen in this chapter "four examples of simple or basic statements . 
The basic forms were ,/ 
f variefble ^= expression; 

read' (input list); * 
' , -1 write (output list); ' 

go to label; 

Each of these is a request to a computer to carry out a" specific set of 
actions and when completed, t'he next statement, usfiially in sequence^ is execu- 
ted. The exception is the go lo statementi 

r ' * - . ^ 

The compound statement ' * ^ . , ' 

.;,It is perfectly proper to think of a sequence of- Simple statements as . 
^o ne s^i^'tement since it describes a unit of action. In the flow- chart. sense 
thi^^p of individual "Actions might be* thought of as a single bo^. W^, 
ther^ore, employ the concept of a compound stateme'^t which consists of a 
sequehce'of statements preceded by '"begin" and 'followed by "end" > For our _ 
present purposes, the statements between begin * and end will be considered to te 
simple statem'ents^ In Section. A3- 1 compound/ statements will be^ discussed 
further. 



A2-7 

The general form of a. compound statement can be thought, of as " ' 

- begin ' . = ^ \ ' 



V • n' 
where' S^, S^^ etc., represent the individual statements. 

The^ program 

We C3:^ate a program by packaging with the compound statement all the 
necessary declarations and comments that are neoessary or appropriate. V/e 
then have .a&>a general form for a prbgrfem > 

begin 

• ■ <■ •• • ■' , 




^ m' 



^1 

^2^ 



S ; , 

n ' 



^- end 



Here, the D»s represent the one, or mo|g^ declarations whl-ch are now in-t 
eluded to form the coriiplete program* Comments may be inserted anjcwhere between 
•the^ begin and end of ar^ prpgram* * , * • . 

, In. subsequent chfi^pters we shall see many more exainples of cpmplete ALGOL 
, -.programs. You*will ^llso, be surged to- write mafiy of your, own* 

IL^. ■ - (t <\ ! ' ■ ^ ^^^^ ^ * " 
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Exercises 



A2^ 



7.. 



7 



1-6. In Section A2-3 you worked out the input and output details needed for 
six ALGOL programs each having the simple loop structure^shovn in Figure 
A2-'3. "^ou*re to finish the job now by writing out on a coding fheet each 
of these six simple ALGOL programs. 

7. What single assignment statement can replace the two that are used in the 
program given in Figure- A2-10? , *- • . 

8. Recall the problem (in Section 2-5 of* the main text) to simulate a 
carnival roulette wheel. It*s presumed you have already drawn a flow 

^ chart for the situatJ.on specified. Now write a complete ALGOL program 
which is equivalent to your flow chart/ 
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A2-8 Alphanumero^^nta 



A2-8 



An ALGOL program may deal with alphanumeric data, numeric data^, or any 
mixture of these. When data is*^aput the computer needs special instructions 
to convert alphanunferi-c ^ data to the^appropriate binary "bit patterns for stor- 
ing in memory. These .patterns are of course different for storing alphan^eric 
characters than for 'riUme^ic values , • / ' { 

Alphanumeric character^ will* be stored one character per yword of memoij. 
They may be stored in space that is earmarked for either intffgei^or real«va^ ^ 
iables. To avoid confusion, however, we shall always store /su^h data in Spac"e^«^ 



(window "boxes ) for integer variables, 
when reading alphanumeric characters, 
re adsymbol s t at emept ^ . The"^ f o rm is :■ 



A special input statement will hf u^^^ 
Instead of the read statement we use, a ^} 



I 




readsymbol( list of > integerN Variables ) ; 



We illu5^w*ate in Figure A2-12. 



integer Y, Z; 
re^dsymbol(X^Y,Z); 





Figure A2-12, Window bo^^s after executing the readsymbol 
statement for the data card* shown 



Similarly, to output alphanumeric characters which may be currently 
assigned* to certain variables, ^.we use the printsymbol statement. For example, 

pr4htsyraLbol(Z, Y, X); 



t; 



Not all ALGOL implementation^ use exactly the same technique—you should con- 
sult your teacher or a reference manual to/determine just how it is done on 
the computer system you ajre using. For in|tance, in Burroughs ALGOL alpha- 
numeric^ values can be jissigned to variablei^. declared as type alpha, " Three 
"types are. then possible: real, integer and;«^lpha The usual free field read 
or write procedures can^be used with alpha Variableis, Such variables can have 
any set of six or fewer alphanumeric characters* \ * ^ 
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If this statement were executed following the input that was illustrated in 
Figure A2-12, \the printed result would be Figure A2-13. 



CBfl 



n 



Figure A2-13. Printed resuit 



Once an alplianumeric character Has been assigned to a varifable, it can be 
used on the right side of an assignment sta"t^nent of the f onn 

variable := variable; 

Armed with this Haich^infomation, the flow chart in Figure 2-28 can be written 
in ALGOL as shown here: 

begin commemt utterly ridiculous process; 

integer A, B; / ^ , 

readjsymbol (A); 
Box2: readsymbol (B); 

printsymbol (A, B); ^ | . 

^ A B; 
. go to Box2; 



end 



1/ 



The only trouble with this program is that only the first character from 
each card is read igto ' A or into' B. ' After executing Box2 the first time 
using the data cards s^hown^in Figure 2-28(c), A will have the value "M" 
and B the value "J". The rest of /'MUTT" and "JEFF** is lost. 

We can remedy this situation by a straightforward revision of th^ program, 
although by doing ^o we are forced to make the program quite a bit longer • To 
handle names of up to six characters we will use six vsiriables in place of A 
alone, like Al, A2, A3) AU, A5, A6 and six more for B." 
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Here is the program: 



'begin 



B0X2: 



end 



comment ridiciiloiis process j 

integer A1^A2,A3,A1^,A5,A6; 

B1,B2,B3,B1;,^,B6; 

readsyraT50l(Al,A2,A3,A4,A5,A6); 

readsyratol(Bl,B2/B3i?Bl^,^^B6); • ' ' ' 

printsyratol(Al,A2,A3,Al^,A5,A6,Bl,B2^B3,Bl;,^,B6); 
Ai- := Bl; ' . ^ 

A2 := B2; . / ' 

A3 := B3; ' 
Ak :^ p^; 

A5 := B5J , ' . 

A6 r= B6; ^ 
£0 to B0X2; 



' 1 



, A lot of work just to describe ajridiculous ^process — to "be sure. For- 
tunately, techniques will he developed (Chapter k) to make our ^OL writing . 
task far easier. 



] 



^ When a character, it a digit' or anjr other, character, is enclosed in 



quote marks it will he unde.rstood to be an.. alphanumeric constant. Thus, the 



pr 



begin , integer A, B, C ; 
A := y\ 

. * ' C 



priiitsyraboi (C, B, A); 



end 



will cause the' oi^tpui . of the \ characters "5 - T\ 



StatemeiiiJs like , 

• i ■ - ■ 



"T" + 2; 



.or A := "2" + "2"; 



are meaningless and as far as we are concerned' invalid. Statements like 

■•• . i - - .; A := "TP"; -i { ' ' . 

woiold also be considered improper because in oixr ALGOL system we are permitted 
to assign only one ali)hanumerical charac.ter to 6 variable^ In other w;ords 



alphanumeric constant can only be one character "long". 
3le ' 



Suppose the instructor who posed the original problem to compute ^ 
^ ^. * ^ t , \ 

\ ^ D = + + . ^ 

now\poses the problem this way; • 

"Imagine that several sophomore geometry jstudents have given , 

^you values of A, B and C, corresponding to the edges of a rec- 

tangulkr prism. 'You are to' compute for each of them the distance 

D, which represents the length of a diagonal according to the 

formula suggested in Figure 2-1. Write a program which prints 

' values of A, B, C, and the computed value for D, and then also 

prints for identification purposes the student* s initials (three 

letters), his room nuiitoer (a^3-<3igit integer) and seat location 

» 

(a two-character code); like 

BJM " . --^^ • 

Yoli will notice that all' the itientifi cation can be thought of as alpha- 
\ nyimeric including the room number- -even though tlie instructor thought of it 
as an integer. 

If identification of this sort were* punched o^^a card, it might look like 
- that shown in Figure *A2-li*i« 




Figure A2-li^, "ID"' card 

To input the data fpr this card we might use a readBymbol statement iike 

read3ymbol(ll, 12, 13, KL, R2, R3, SI, *S2); 

initials room number seat 
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We will 'not need to change the structure of the algorithm in any signifi- 
; ^ c^nt way to achieve our ^ew ob4ective5--as you can see in Figure A2-15. We 
have merely added Boxes 0 and The "ID" card is imagined always to precede ' 
y C-^^^-A^J^.^^.^^J^e student»s values of A, B and C; 




I.D. CARD 
INFORMATION 



A, B, C 



D <- Va^ + + 



A,- B, C, D 



I. D. 'INF^MOTION 



Figure 'A2-l% Ney flow chart 



SIhe corresponding ALGOL program— you could protably write it your- 
self'-is shown in Figure A2-l6. " 
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' A2-8 

• • 


• 


* 




begin 

J- 


comment Evaluation of D: . ~ .'^ 

integer 11, 12, I^, Ri; -RS, R3, SI, S2; ^ 
real A, B, D; r „ ' ~ 




BOXZERO: 


readsymboldl, 12, I3, Rl, R2, R3, Si, S2); 
read (A, B, C); 


/ 




.D := ^qrt(Af 2 + Bt2 + C |2); 

write (A, B, C, D).j ^ * • 
printsymbol (ll, '5^ I3); 
printsymbol (Rl, R2, R3>j^ 






printsymbol (SI, S2); ^ - ^ ' ' 
£0 to BOXZERO; ^ 




end ^ 


L 

« 




Figure •A2-l6. The ALGOL program that goes with Fl^e A2-15 
The three separate printsymbol statements are used in order to ^plit up 


the 


"ID" , information on to three successive printed liijes. 

A 


















« 


• 






• /I? 














0 

• 




• 


« 


• 
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Chapter A3 
BRANCHING AND SUBSCRIPTED VARIABLES 



A3-1 Conditional statements 



In Section 3-1 of the flow chart text you studied "techniques for branching 
by means' of a condition box. In ALGOL you can write branchiTig instrudtions by 
means of a conditional statement . Later in this chapter you will see that one 
ALGOL conditional statemeat caxx represent the equivalent of several condition, 
boxes in the flow char,t language. But first will look at an ALGOL condi- 
tional statement that starts from one condition box--along with the two lines 
that emanate from it. 



< 29 



If D < 29 then write (N); 



Figure A3-1. Structure of , one type of ALGOL 
conditional statement ^ 



The meaning, of this conditional statement is clear: If D is less than*' 
or equal to 29, then write the value of N, otherwise/ Ho not. Tlie two 
flpw chart branches then 'come together again. ^ . " . * 

^ In the flow chart 'language, the rules for what could be writtej^ inside the 
oval were not rigidly specified. As you" might suspect, in ALGOL it is necep- 
sary^^to, be rather .specific about this matter, $inde, a machine must translate 
your ALGOj:! program into executable code. An "if -clause" can be defined as a 
pair of arithmetic expressions ^separated by any one of the six relational 
symbols. 



and set off by if and then . * ^e above simply form of cortditional 'statement 
can therefore be written in the form^ . - ' 



if-^cl^use then' 



a tead statement, 

a write statement, or 

an assignment statement 



A3 



Recall th^ "^^j^tanian Postal Regulations problem from Figure 3-1 • Jhis 
is one ws^^o^^^Xt^ t^he program in ALGOL: * ' 



begin 



comment RURITAKIAN POSTAL REGULATIONS; 
real A, B, C, D; ^ ^ 

integer N; 

BOn: read(N,A,B,C); 

D sqrt(At2 + Bt2 + c\2) ; 
if D < 29 then write (N) ; ^ * 
go, to BOXl; 



end 



Exercises A3-1 Set A 



Whicji. of the following* are correctly formed if-clauses? For those which 
are incorrect, cite the defects. 



1. 


if 


A'< B < 


C then 


2." 


if 


A + B < 


C then 


3. 


if 


,A + JB > 


C + 1 then 


It. 


if 


A + B > 


C; then 


5. 


if 


c''= B + 


h ^ C then V 




Write ALGOL 


statemen"lis 



7. 



' F 



2 + X 



T 




• T <- 3 XT 




J). 



- (x < 9-7 > 



•T 



Y, T 
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Draw flow c'hart boxes for each of the following ALGOL statements. In 
each case rejoin the flow chart branches. 

10. if Z < A then write (SS);\ - ' 

II- if sqrt(At2 + *Bt2) = C then' P := P + Ij 
12. if C + D ^ T then read(A,B,N); ■ 



Actually, the statement which follows the "then" in the conditional 
Statement need not be restricted to a single read, write or assignment state- 
ment. Any simple or compound statement can be used after then . For instance, 
.Hhe following ALGOL statements are proper: \* 



if ■ /x < 2 



then 



begin y := 2 + x; 
. T := 3 X T; 

v 

In Section A2^7we defined a compound statement as a sequence of statements; 
the' sequence being preceded by " begin " and followed by "^nd"t Now that we kndw 
' what a conditional statement is, we can poiut out that the individual state- 
ments in the compound statement may b^ conditional or comjtound, as well as 
simple. • \ ^ , • ^ 

" '* If th6 statement, following then is a ^ to statement, then, of. course, 
the two branches of the progr^ do hot ^rejoin timr(ediately after the conditional. 

0 



,The following example is of this type: 

r » ^ 

^ * 

if ' z < 5 then go to B0X5; 



1 
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Exercises Set B 

Write ALGOL statements equivalent to each of the following flow chart 
'fragments. ' * 

1. ■ -1 ,• •. 2. 



F <-G + H 



T <- 3 >^ T 



I 



*Draw flow chart boxes for the following ALGOL statements. 

5. if Z 5> A then go to B0X30; 
Z := A; 

6. ifP + 3<S-K then go^^B0X30r 

P := P.X sqrt(P); * ^ 

S := S X sqrt(S); 

7. if C + D-^ then ' , r. ^ j 

. begin ' F : = ^ x T + 5; ; 

G := G - 5; ^ ^, 

end; 



r 



■w 52 



In^he simple conditional statement the if -clause causes the program to 
branch and the part of the conditional following the word "then"- affects only 
on^ of the branches. Whether the branches reunite immediately following the 
• conditional depends on the topic of the particular conditional statement. The 
basiq flow pattern for a simple conditional is then: 



c 



or 



T 



There is a second type of conditional statsment which ia^equally useful 
and importan-^ It makes use of an alternative when the i£^clause condition is 
not fulfilled. The basic pattern for the "else" conditi/nal 'is this: 



T 



Figure A3-2 repeats a familiar flow chart which lends itself to 
second ty^ of conditional statement. The ALGOL statements parallel 
chcirt quite naturally. 

Flow Chart Form ^ ' 



this 
the flow 



{A, 


n — ' 









LRGR 




LRGR *-B 



LRGR 



read(A,B)5 ' 
* if A < B then 



LRGR := A elsfe LRGR := B; 
write CLRGR|;^ 



Figure if3-2. Conditional Statement, '"Eise"-type 



^9 
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Any statement type that could^ollow then in a conditional can legally 
follow else . That means any simple stsft:ement or compound statement can follow 
else . ' *' , * 

You will recall that a comp^ound statement £s a sequence of ALGOL state- 
ments preceded "by a begin and followed b> an end. Since you can do ^practically 
anything with a compound statem^t, it is possible to insert the equivalent of 
a whole chunk of flow chart following the then and another whole chunk follow- 
ing the else. - ' ^ ' 

Here ^re sev^era^l^examples of legal ALGOL conditionals: ^tr 

if p < 0 then go to BOXL else go to B0X5; 

if k - r = 0 ttien X := Y - Z else ^ . ^ ' 

' begin y :^ z + x; 

end; ^ . ' ^ 



Notice that there is no semicolon before else . In fact, else u^ust never 
"be preceded by a semicolon! , . *■ 



CAUTION: If you use a statement (whether compound or 
not) between then and else , yo'u "must observe the 
following restriction: The else may not* t>e irame- 
•diately preceded by a semicolon. Some other (non- 
blank) legal charaqtei^s (e.g., end ) must occur between 
them. sFor example, the following is strictly illegal: 



if A > B t^en B 
f 

■ < 



=■ D; else 

J 



get f^d of it! 



ERIC 



554 



\ 



Exercises A>l' Set C 

For tjie following flow chart>s write ALGOL' conditional statements . Use 
compound stateraent§r following then and/or ^Ise wherever, feasible,- Assume' + 
next statement to be tritten corresponds with ^ox 30, and is labeled B0X30 

T 



V - 



ERIC 



2. 





^ 20 


"CASi 


: 2" 




3Q 



10 



F <- F - 1 






F ' 

. 2 


F <- 10 X T + 5 

G <-G .--5 : 













1 




^F' + G > iy 



lo'* , 


p 


p <-.p + I 
Q <-Q^ 1 
R ^ P/Q 


30 ^ 







S <- S + 1 
T T + 1 
U S X T 




6. 



51 






F 




K 


• K + 1 


N ^ 


• N + 1 


S 0 



30 



10 

I S S + l] 



i 



F 

30 





' 5 


T A 


A *-B 


B < 






to 
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Tell which of the following are correct ALGOL conditional statements 
For those which are not, tell what is wrong. 

8. if A < B then T : = J + 1;' else T := T --1; 

9. if CO(Jm< 100 else go to BOX^Oj 

10. if Cajm:'+ l then begin A := A X S; B := B x 1'; end ; 

11. if GLOm < JOY' then begin BOYS := BOYS + 1; GIRLS := GIRLS + 1; * ^ 

. -else defeat := ^py^' 



5G ' ''. ^ 



ECAMPLE: You are giVen that the 'equation AXx^+Bxx-»:C = 0 h^s'St^^ 
, least one real root, but you dosjjiot know that. A / 0. -Input A, iB, and C. 
If A = 0, output B, and the root of the equation. ' -If ^A ^ 0, ^^^^^^ ^> " 
B, C, and th^ two roots (possibly equal) XI arid X2. Then qo^ie^-ttck 'to^ read 
A, B; and C for the next equation. , * , ^ 

« not CHART SOLUTION: . , ' ^ - - 




1 

■7^ 









C A = 


= 0 ^ 






Li 
<- 


-B 


«• 

+ DI^CR 


XI 


* 




2XA 


7 




X2 


<- 


-B 


- DISCR 






2XA . - 


• 






\ 








1^ 



A,:,B, c 

XL, X2 
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AI£^OL^ PROGRAM — MmOD ONE 
"be^in 



\ 



real A, ig^^K, XL^ X2, DISCRj 
BOXL: read(^,^C)^ ' '-^ 

. if A = olo then go to B0X3; 

BISCR := sqrt^Bt2 - X A X C); 
XL := (-B + DISCR)/(2.0 X k)\ 
^2. := (-B - DISCR)/(2,0 X'A)j 
' write {^A^JB,c/xLpC2); 
go to BOXL;^ 
?0X3^: X := -C/B; ' ^ / ' 

write (B,C,X); ^ ^ 

^ go to BOXL; 



end 



ALGOL PROGRAM METHOD TWO (usin^. compound statements): 



/ 



begin 



real A, B,*C, X, XL, X2; BISCR; . 
'boXL: re^d(A,B',C)s' \ • , . ^ 

* if A = 0 then begin X r= -C/B; 

' ' ^ Vi^,(B,C,X);' . ^ 

end ^ . 

^' ' else , begin 'DISCR^ sqgt(Bf2 - 4 X A X C); ' 

^ ^ " "Xl.^^ {-B + DISCR)/(2 X A); , 
* X2 := (-S - DISCR)/(2 X A); 
. • > . - ■ * ' write(A, B, XL, X2); 
■ ' end ; . _ • > . - 

go to BOXL; ' / * ' ' . ' 



en>d 



Compare the methods used ia the two ALGOL programs in the example • Whith 
do you tbink is easier to read? To write? There is room fpr a difference of 
opinion here, as the choice between the two methods is largely a'nmtter of ; 
)taste . YaU should le,arn- to read and write ALGOL in either style ^nd.*use which- 
ever seems more approffiate to a given problem, * 



'i 
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^ In Section 3-1 of your flo^ chart text, you used out^fut boxes involving 
n§t only variables but* identifying remarks in quotes. In ALGOL we will hairtKLe 
identifying remarks in precisely the same fasl^on as you did in your flow chart 
work. We will merely enclose them in quotes and add them to the output list 
^ Where appropriate. As with other output list items, a comma should separate 
the identifying remark from the following list item (.if there is one) and. from 
the preceding list itepi ('if there is one). But l^his is notbtng new, since you, 
did it that way in' flow chart .output boxes. 
Example 1 , ' - ^ 

write (^'AFTERO", N, ^tlTI^ESpTHHlANSWERPISD'', ^C) 
t 

If the value o^ N were 3 and x\ were U.9, then executing this 
write statement would result in printing the line 



AFTER 3 TRIES, THE ANSWER IS 

it t t - I I 



jone space above each arrow corresponding to each 
square (□) in the%print statement. 'The square 
- is simply our mark for a blank space; it isnVt 
printed, and^oh a punched, card it is represented 
by a column with no punches in it. 



A3 

Example 2 



Recall the flow chart from. Figure 3-4. Figure A3-3 shows how. this f]|ow 
chart could be written in ALGOL'. v ^ - v ! 

Flow Chart ^'orm 
^ • ^ " 1 



c 



A*, B 



2 . 



A < B 



7 



3 X 


^ — r 




"A IS THE 




"B IS THE ^ 


LARGER. 




LARGER. 


THE VALUE 




THE VALUE 


OF A IS", 




OF B IS", 


A 




B 









ALGOL Statements 



read(A,B); ' * . 

if A'< B then write("B IS THE LARGER. THE VALUE OF B IS", B) 
, ^ else writeC'A IS THE LARGER^. THE VALUE OP- A IS";! A); 



Figure A3-3. Use of identifyJ^lreiMrks in ACpOL outpujb 

Strict}.y speaking, it isn»^t' necessary that a write statement <ia\l for 
printing of any numerical* values. One may wish to write only remarks or 
messa^^s. .'For- example: ' ^_ 

wr iM;e ( AraajTHEtjLAReER^y ; 



' write ("KILROmWASOHERt;"); 

* • . 

In BurrougHs. Algol any string of characters placed between quote ifiarks 

'may be used as a "field specification". The effect is to print the string 
without the*- quote marks in the line at this point. An example 'is: 

write(< "B IS THE LARGER" >); '* ' ^ 

The less-than symbo;L, < at the beginning signals the compilej that what 
follows is not a variabler whcJse value is to be written, bat some "format** 

56 ' 



ERLC 
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information. Format inf^ormation includes literal strings as well as directions 
for how variables are io be printed. The free - field write procedure in , 
Burroughs Algol does not allow the insertJLon'of -strings of identifying 
, characters . , ^ 

If A and B were integers of 5 digits or less in Figure A3-3, the 
Burroughs Algol for the statements would be 

READ(A,B)r - . • ^' 

IF A < B THEN WRITE(< *'B IS THE 4iARGER. THE VALUE OF B IS", I5 >,B) ^ 
. , ELSE WRITE(< "A IS THE LARGER. THE VALUE OF A IS", 15 >,A)i 

15 in the write statement above is a field specitication which reserves 
5 spaces at ihe place in the line where a variable is to be printed and causes 
*^the number to be printed»as an integer. The greater-thah symbol, ">", indi- 
cates the endr of the fdnnat Information. What follows is the variable to be | 
printed. . ' , ' 

' c 

The integer field specification has the form' Iw Were w is the field 
width'. 

Two other field specifications are fai^l^cMion. These are the ^F 'and 
E fields for print:^ng real numbers. The^ F field specification is of the 
form F w.d where* w denot^-^the fieldnjldth and d denotes the number of 
decimal places to the right^g^the decimal point.' The number will be rounded' 
to d decim^^laces . • • 

The thi3r& type has* the form E w.d where again w is the field width 
and d the number of decimal places to the right the decimal' point. An 
example would be E20.10. The E-type is called flowing - point type because 
the printed result includes a power of te.n, adjusted to allow ^d ^^ces to 
the ^ght of the decinSl point.' ' ' ^ ^'^ " ^ ' ' " ' 

formatting is a topic 'which has a great de^l more detail^than"^ need to 

include' here. The Fortran ^ language supplement to this course ""can be«.consulted 

- \\ ZT ^ 

for more information on format. ^ 




\ 
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Exerciseg A3-1 Set D 



Write an ALGOL print statement or each of the following output b<55ces4 




40 



■w 



"A=%A,"B=",3,MC=",C 



"Nestdng" one conditional statement vithin another ^ , 

There is one more impllcatign of the use of compound statements within a 
conditional ^statement that we should examine before going on. A compound 
statement may contain one or more conditional statements. Thus, a conditional 
statement may contain something that itself contains more conditional state- - 
ments. The following ALGOL program for- the I'low chart in Figure 5^ illus- 
trates one way of using a conditional within a compound within a cor^drfional: 

begin ; ^ ^commeift TALLYING;' ^ ^ ^ . ^ ' . 

integer LOW, MId', HIGH, T^ N, COUNT; ^ ^ 

, rea(?(N); ^ 

COUNT ;= 0; ^ . 

; LOW := 0; ^ • . ' ^ ^ * 
' := O; , . * 

HIGH := 0; 
B0X3:' read(T); 

if T < 50 then LOW := LOW +1 ' , 



' else begin if T < 80 then MID := MID +1 

ease HIGH := HIGH +1; 

end ; * ^ 
COUNT : = * COUNT +1; . ^ * 
if CCHJm < N then go to B0X3; 

W3rite(;^VAnJES OF COUNT, LOW, MID, AND HIGH. ARE", COUOT, 
LOW, MID, HIGH); > ' ^ 
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Exercises A3-1 Set E 

1-5. Refer to Exercises 9 - 13>' Section 3-1, Set^'A^in your flow chart text. 

Fot each of these five exercises you prepared a flow chart of a siirrple 
* * 

algorithm. Now, write an ALGOL program corresponding tos^ach flow 

chart. Choose statement labels, in Exercises 12 and I3, to correspond 

with the "box numbers used in the flow charts. 



c « 



Exercises A3-I Set F ^ 

1-6. Refer to Exercises 1-6, Section 3-1, Set B. For each of these six 
exercises you prepared a flow chart of a simple summing algorithm. 
^ Now, write an ALGOL program corresponding to each flow cfhart. Choose 
statement labels, where needed, "to correspond with the Box numbers 
used in the flow charts. 



A3 / 

A3-2 Auxiliary variables - 

' The use of auxiliary variables in ALGOL programs mirrors what you have 

t ' • r 

already .learned in the flow chart text. ^ / 

Exercises A3-2 Set A ^ - ^ ' 

1-5. Refer, to Problems 2 - 6 of Exercises 3-2, Set A in" your flow chart 
text. Write ALGOL pixjgrams for each of the flow charts you have* 
constructed for 'these problems. ^ 



You might like to see how the flow chart for the Euclidean Algorithm 
given in^Figure 3-lU might work out in ALGOL: . , ^ > 

begin commen t EUCLIDIiAN ALGO'rITHM for two non-negative integers; 
; ^ ^:feteger A, B, r; ' . ' ' 

read (A,B); • * ' 

write("T^^JftcD OF", A, '"AND"/ B, "IS"); 
if A < B . , ^ 

then begin 
B0X5: ^ . if A = 0 " 
- - ^ . then begin write(B); * . 

gd to HALT; 

^end 
— ' " else - begin r 
. B 

<j ' ^ ' A 



= B - entier(B/A) X A;. 
= a; ^ 



r; 



go to ^0X5; 



^ end ' .V^ 
else begin r. := B; 

B := A;^ 
' A := r; 

' end;/ 



HALT; 



In tliis example y:ou should note a different kind of basic statement: the 
dmrany statement. It consists oi* no symbols at all and shows up only means 
of its* lately in this case '^HALT". Nothing is to be ►done at t^his pointy. We 

merely want to mark the place at the end of the program so that we can use the 

> 

statement ^ ^ 

* go to HALT; 

^ .Not all programs require this technique; Jut it is frequently useful when the 

. box — •^STOP| Qccurs in the flow chart and we want to e:<j)ress this in ALGOL. 

Note that we must not forget %o declare the type of any auxiliary variable 
v^y^T^hat is used in the program, r is an auxiliary ^variable and appears in the 
integer declaration. , ^ 



Exercises A3-2 Set B 

? r~ / 

Vtite an ALGOL progi^ C(fr responding to the flow chart you cons.tructed 

in Problem 2 of Exercises 3-2, Set B of your flow chart text. 



Exercises A3 -2 Set C 

1 - 8; Refer to Problems .1 - 8, Exercises 3-2, Set C in your flow chart text. 
I For each of these ei^t exercises you prepared a flow chart of a simple 
algorithm related -to coordinates of^ points on a straight line. Now, 
writ^ an ALGOL ^program corresponds^ to each ^of f^ese flow charts. 
Choose statement label's, where needed, that are of -the form BOXl, 
) BO^] etc., to correspond -to the box numbering of the flow charts i» 
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A3-3 Compound condition boxes and multiple branching 

i lit Section 3-j yo'^ encountered condition ^boxe^g involving more than one 
decision, e.g., 

' 1 I 3 



and yOK^saw tijrSt this single decision box was equivalent to a pair of boxes 



C 



X < 5 



\ 




From your study of Section A3-1 you know that boxes 1 and ^ in the latter flow 

C"ha^ti'Can"^be expressed in ALGOL as J 

r 

BOXI: if 2 < X then beVn if X < 5 then go to BOX25 
' ■ *; .end f , ^ ' • 

else go to BOX^, 

QT, if the statement :B0X3 immediately /ollows the statement BOXI ^ _ ^ 

BOXI : if 2 ^ X then begin if X < 5 then £o to B0X2 ; 
end ; 

Similarly, the following pair of flow charts ^ - * ' 

1^1 . 1 i 3 » 

(X < 0 • OR X>^)^y^\X X < 0 ^y ^^ ^ X.>T^y ^ yTs/ 



/ 
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may b$ writteft in ALGOL as <> ' \ - 

BOXl': if X <• 0^ then go to B0X2 ' ^ * 

, else begin if X > J. then go to B0X2; 
end ; 

provided, of course, that the statement B0X3 immediately follows the state- 
ment BOXl, \ 

In Section A3-I you learned that ^ny basic or compound statement y^s legal 
following then and also legal followiiig else. In addition to basic and com- 
pound statements, conditional statements, are also legal following else! "Thus, 
we can abbreviate the last conditional statement BOXl displayed above by 

BOXl : ' if X < 0 then go to B0X2 

else i£ X > 1 then go to BQXS; 



r 



CAUTION: Qonditional statements are not .legal following 
then unless they are buried within a compound statement 
enclosed by begin and end. ^ Thus, we can legally write 



* A: if X < 0 ttjien go to B0X2 

else if X > 1 then ^ to BO}^; ' 

but ve cannot legally write 

B: if 2 < X then if X< 5 then go to B0X2; 
In place of statement B we must write 

C: if 2 < X then begin if X < 5 th^ go to B0X2; 

In other vords, then if is^.forbiddea but else if 
is alright. * * ' 



Exercises A3-3 Set ^ A . 

' \ ^ . , . ' \ ' 

Which of the following are Iggal in ALCJOLt For thos^ which arie legal, 

'draw a flow chart; For thd^^^vhicft are not legal,^ tell why they ai^e not legal. 

Assume that a statement la'bejlled* B^>, irame di at ely*- follows the ALGOL ode given 

in the exercise. * *^ ^ " - " . 
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^ 
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if A 
if A 
if A 
if A 
If A 

jl ^ 
if A 

if A 

[£ A 
If, A 



< B then 

< B^then 

< B then 

< B then 

< B then 

< B then 

< B then 
3 then 

< B the II 

< B then 



go ;^B0X5 else go to BOX?; 
go t5' B0:5($^,-**/^ 
if V < D then^ go to^0X5 ;* 
£0 to B0X5 else if C < D then go to ,B0X7; ^ 
£0 to BOX 5 (fUse begin if C < 0 then 'go to B0X7;end; ' *^ 
begin i£ C < D then ^ to B0X5;iend; ' ' * r - ^ 

go to B0X5 elsg A := B;„ 
A ;^ B; , , ' . \, 

be,:lL t := A; A := B; B := C;'^ndr-^ ' ^ 

C := A; A := B; B := C; else go 'to B0X5; / 

C := A; A :^ B; B := C; £0 to B0X5; 



Exercises Aj-j Set B ^ 

c f 

i - Y.' Refer to Exercises 1 - 7, Section 3-3 in your now chart text/ ?<^r 

each cf these ^ercises write ALGO^ statements equivalent tu the flow 
charts y^ya prepared. For example, the fiow chart example might be ^ 
coded in ALGOL as: ^ ' * ' 



B0X2: 



if XI < X2 then go to B0X2 else go to BOX3O; 

if P > G then go^ to B0X20 

else if T =L S then go* to B0X20 ^ * 

else go to BOXjjO; 



As^c^* tcpic you studied in Section 3-3 was multiple bAnchin^^ for • 
'example 



1^ 



VAUJE OP T ^ . , 
T < .50^7 ~^ |50<K80^ 80 < T 
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The iil/jOL Diagram wrote earlier in this cha^er'^^^espOndijog to the tally- 
ing flow chart of j^gure 3-7 'used -a ^ucc^ssion^of ' two two-way Lranches- 'tV ^ 
achieve the/effect of a three-way branch. The ALGOL statement was^rthis: ' 



..if T < 50 thep LOtf :=:JiOW + 1 ' 

' '^egiir jX::g:<^^ then MI0':= MID + 1 

. endp • 



^ else HIGH ?&^IGH + 1; , 



Compare this 'with. the ALGOL statement for the single^ three-way bpglic^ of t\ie 

flow chart in ^Figure 3-20. . ^ 
• • * » 

**/i^ T < 50 then LOW LOW + 1 

else if T < 80 then M^D := MID +1 * . 

else HIGH :=^HIGH^X; 



o"^y difference is the omission of " begin " andj'end" around ^t^he second 
conditional statement. 



J 



The warnings in Section 3-3 concerning tlje non-overlapping and exhaustive 
nature ^of the exit conditions^f rem a condition box ,are not really^necessaiy ' ' 
in ALGOL, since in an if ^ then >^ else if then else if then . . 
pi^atement' ' 

(1) The first if-clause that comes. out ti*ue /satisfies the condition of * * 
the entire if, so the renjaimmg if-clai(ses are ignored. 

(2) If non^e of the if -clauses* come 'out true and th^re is no else after 
the IsTst t he'll , we merely go on to the next piece of code gifter the *' 
conditional statement. . . > . ""d--^ 

You may haye nqticed that the disQr?mijiation betwe^wt^at can foyLow thefi 
•and what can follow else seeras^at first glance fb'^jg'alSat "jajpfair" to c6nipoUnd 
condition boxes involving ."and" . If you didn't Notice this, lodk at the first 
two exat]ftples' in this section— the ones involvi^ ''and" and "'o:f" and see which - 
is easier to code in ALGOL. 

' , ^ . •* \ - ^ ^ . 

For rel^atively uncomplicated compound condition box^s ^uch as ' 

■tS * , ' " '.09 

.1 A- ■ 3 • 



Q~< X . AND - X < 5 




A3 



i; ■ 



this "discrimination" actually poses no difficulty. If you know a little 
about the logic of the words "and" .and "or" you may se^ without difficulty 
that ve can replace the "and" lox above by the following "or" box:. 



(2 > X oT X > 5")^ 

V TV ^ 

2 ii 





This may be easier to see by looking at the pair of condition boxes 

_} X 



. .1 



X < 5 



2 |T 



You will remember. fijQd Section 3-1 that the two arrangements ' • 



T 




are equivalent, and that ■Aie same applies to the two arrangements 
^ ' 3 • •■ '3. 



C 



x> 5 
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^0 



If we iJut these fragments together we find that the arrangements 

1 i_ ^ .'. 1 \ ' 



V 2 -It 



2 > X 



3Z 




X>5 



are equivalent. But now take a i'resh look at the right-hand flow chart 
'mef^iy rearranging the drawing on the page we get 



X > 5 




which, according to your study in Section 3-3, is the s^me as 



^ .2 > X OH X 



2* 




, But this is just another way Qf arranging the drawing for 



• 1 



C 



i 



2 > X OR X > "5 




3: 
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A3 • ^ * . ' ^ 

♦ ^ ' ' % 4 * 

Thus, you can see th,at the following two are equivalent condition boxes 



\ 



^5^^ ^ /\/ ' ' ( 2 > X OR X\ fy ^r^ 



2 < X MD X < 



r 

2 y 





.For th'fe purpose of your work with ALGOL, the important lesson 
for you to. learn from the foregoing discussion is that it ''is possible 
to transform a sequence of condition boxes connected by "T" arrows ^ 
into a sequence 'of conditio^ boxes connected, by "F" arrows^ and 
vice versa. This is important because of the' correspondence between 
the ALGOL construction • . . ' 

if /vA^ then ^^^-^ elge if then a/vna, else if * .-'^ 



and a sequence of condition boxes connected in "series" b^. "F" 
arrows . ^ . * ^ 



The algorithms illustrated below in Figures A3-U and A3-5|a?:^ eq^ 



$nt 



2 tT • 

(. X < ^ ) i> 




X AMD X<^ AND A>B 






if 2 < X then beg>n if X < then begin if A > B then go to BOXjf ' ^ • 
Q^se go to B0X5; end ; efld; - _ 

Figune A3-lt. T-series method of coding 2j< X and X < 5 and A > B 
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c 



c 



2 > X 

3z: 



X > 5 



A < B 



> 




> - • 



2>X OR X>5 OR A<B 



5 




if 2 >^:^^ then go. to B0X5 

^else if X > S^y ^lh go to B0X5 

. " else If A < B tnen go to B0X5 

else go to BOX^i-; 

Figure AS-^. Easier F-series way of coding -the problem "in Figure A3-^ 



£xerc?ises A3-3 \ Set. _C . ' 

In Exercises 1-3; complete the flow^ chart on the right making it 
^ equivalent to the one on the left. Then write a single ALGOL conditional 
statement equivalent to either flow chart form. Is it easier to write the 
ALGOL from the first form or the second? 



• 1. 



1 



C > D 



iF - 



' 2 . 




3 



.69 73- . 




In Exercises U - 5 write an equivalent ALGOL statement without using 
begin or end-. Hint: Use if .,'^-^ then ^-^^ else if 

h. if P < then begin if Q > R^ t^ go to BOX] else go to B0X8; end ; 

5 . if P = Q then begin .if Q = R then begin if R S then go to BOX? 
else go to B0X8; end ; end ; ^ ' 

^ In Exercises 6-7 wi;ite an equivalent ALGOL statement without using the 
else ' if -cogstruction . ^ * 

6. if A ^ B then go to B0X6 else if * C = D «then go to B0X6 else go to B0X7; 
T< if A> B then go to B0X6 else if B > C then go to B0X6 else go to BOXT; 
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Draw. a multiple br^lnch condition box fbr each of the following ALGOL 
Statements » Observe the cautions concerning non-overlapping and exhaustive 

4 * 

6xits as set down in Section 3-3 » 

8. if X B then go to B0J(6 else if X ^ B + 5/then go" to B0X7 else go to 
B0X8; 

*9 » if A = B then go to B0X6 else if A = C then go to BOX? else go to BOXB; 

10. Write an ALGOL statement for the following multiple brajajhing condition 
box: / ] 

VALUE OF Z J 
ZK'^j^ 3 b<Z ^ '^t>^,. Z > 'iO 





Exercises A3 -3 'Set D * ^ . 

1. Write an ALGOL program corresponding to the flow chart you prepared for 
Problem 10, Exercises 3-3. ' ^ - ^ 

2. Write an ALGOL program aorresponding to the new flow chart which you pre- 
pared for the carnival wheel problem as the answer to Problem 11, ^ 
Exrercises 3-3. 



v5 
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Ai'-k Precedence le/els for relations 

In ALGOL the precedence level for relatioa symbols tnirrors that m your 
flow- chart language and should require no special study. 

- ■ • V. 



> 
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A3 -5 Subj5crip1;ed variables / 
Representation of subscripted ' ve riables in ALGOL 

Figure A3-6 shows how subscrii)ted variables are represented in ALGOL. 

Flow Chart Fom ' ALGOL Form • 

^^I+l . 3[ I- + .1*] 

■ ^5xl+J+2>« Z[5 X I +. J + 2 X K]^ 

Figure I^epresentation of subscripted variables in ALGOL 

As ycu can see from the figure^ subscripted^ variables are represented in 
ALGOL ty enclosing the subscript in square brackets and wfe-iting it following 
the variable to which the subscript is affixed. This is another example of a, 
notation th^t enables ALGOL code to be written "on the line". Other examples 
* you have 'seen include "Afa" for "A^" .and "sqrt(X)" for^">/x". Since the 

"greatest integer function" is represented in ALGOL by entier(X)^ there need be 
no confusion^etween use of square brackets for this function in, flow chart 
lan^ua^:e and its use for subscripts in ALGOL. In ALGOL square brackets always 
indicate subscripts . They are not a^ilab-le^ as a special type of parenthesis 
as in ordinary ar^ebra. For parentheses you niu6t always use and ")". 



Exercigeg A3-^ Set A ^ . ' 

Write each of the following subscripted variables in ALGOL foYm: 
1. 2. '3. CHARj ^- '^■'^ + 2 



Allocation of memory storage for arra'ys 

As you know^ the computer must have a storage location available corre- 
sponding to each va3fiable ^in given ALGOL program. If-all variables were of 



the form 



A, X, CHAP, X^,' etc. 



EMC . // 



A3 . . • r. 

i - 

this would be*a sim^ile problem indeed. The processor could merely assign a 
storage location to each variable occurring in -your prograin. 

But what about ^? How can the processor knew for what values of I to 
assign storage l^ations? It cannot tell merei;; by looking ai^ the occurrences 
Xj. in your program. But if it were to wait until the program was being 



of 



executed, it might find that it needed locations l^r X. , X^, X-, 



had assigned locations cnl^^ for X^ X^ 



Since storage^ of arrays sujh 



as X^, X^, ...^X^^ in consecutive locations in storage is of ijinportance in 
Efficiency of program execution in most computers, we would like to have ad- 
vance knowledge of the range of values possible for a subscript before we start 
executing the portion cf the program in which that subscript occurs. Mere 
prepisely, we require at least knowledge of the maximum range so that we will 
"'^alicw enough locations. ' ^ 

In ALGOL, this problem is solve^by means of a declaration * You have 
already learh^d about the declarationi^ real and integer . For arrays (sub- 
scripted variables) we have the declarations rgal array and integer array. 
Pigure A3-7 shows the form of the array declarations and compares' them to the 
declarations real and integer . 



Dec laration 
real X; 
Integer I, J; 
real array X[ 1 : 5 ] ; 

integer , array l[^:60]; 

real array X[ -2 : 3 , ; 



Resultiigg Storage Allocation 
V 

one location for X * • 

one location for I "and bn^ ••for J 

five locations: one each for X^ , X^, 
5X2, Xj^, and }^ 

♦ 

56 locations: *one each for'I^, 1^, 
through -E^gQ^ ' 

six locations: one each for X ^ i> 
Xq, X^, X^, and X^ 



real array X[l:3], Yf2:5]; on^ locaUon each for X^^ X^, X Y^, 



Y^, \, ^nd Y^ 



Figiire A3-7* Storage allocations f or ALCJOL declarations. 
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Input and output of arrays 



You v^n^ study more convenient methods fofe inpujb and output of arrays 
Chapter k. 'For the pre^ent^ shall use a loop to input an array. Figure^ A3-8 
illustrates one possible method.. \ , . 



Flow Chart Box 



{B^,i=l(l)6) 



/ 



Crude ALGOL Program 

I := 1; 
AGAIN: read(B[I]); J 
\ I := I + Ij. 

if I < 6 then go to AGAIN; 



(X., J 



3(2)n} 



REPET: write (X[ J]); 
J := J + 2; 

if J < n therjr go to REPET; 

Note that n will already have been assigned a yalue before the array' 
is written ou"t in 'the sepond example . 



Figure A3-8. ^Crude method for input and output of arrays in ALGOL 
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Example , , 

^ i * ^ 

Draw a flow chart and write an ALGOL program to find lar.:est component o. 
an n-comporient vector (n § 100): 



Flow Chart* 




LRGST ^ 
K ^2 



. ^K>nj 


5 |f 


^ LRGST > \^)-^ 


6 


F 




LRGST > 




7 






K *~ K + 1 





; ' ALGOL 

begin comment LARGEST COMPONIOT; 
real array A[ 1:100]; ^ 
Veal LRGST; 
integer N, K, I; 
reaa(N); 
I := 1;' 



B0X2: read(A[I]); ♦ 
I := I + 1; 

if I < N then go to B0X2; 
LRGST := A[l]; 
K := 2; 

BOXi^: if K > N then go to B0X8; 
j If LRGST > A[K] then go to BOX? 
LRGST :^ A[K]; ' " 



BOX?: K := K + 1; 
go to BOXU; 



"LARGEST- 
COlPONEirr 
IS" 
LRGST 



B0X8: 'write( "LARGEST 'COMPONENT IS" , 
LRGST) ; 



[stop) ^nd 



7^0 -f 
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Exercises A3-^ .Set B 

In Exercises 1-3 write the necessary 4LGOL declarations and ALGOL state 
^^^s to input the real arrays indicated. In each case assume that bef(Jre we 
start, n or k hhs been assigned a specific value. Use the inequality on 
the right bnly for the purpose of reserving space, i.e., in the array declar-' 
ation. 



1. {A^, i =: l(i)k) * Assume k < 50. 

2. {B , j -•^2)n) Assume n < 125. 

3. {A., i = lO(l)n), {B./i - 10(2)n-) Assume n < 50. 



Exercises A3-^ Set C 



1* Write an ALGOL prograni corresponding to the flow chart, in Figure 3-2k(h) 
(the carnival. wheel problem using subscripts). < * - • 

2. Write an ALGOL program that*? corresponds to Figure 3-25. 

3. Write an ALGOL program corresponding to the flow chart you drew for 
Problem 8 of Section 3-5, Set A. Assume the value of n will n^ver be " 
greater than 50. Assume polynomial coefficients are punched in order 
on si^ccessive data cards. ' 



Exercises A3 -5 Set D ^ 

Write an jt/jtOh prograji for tile flow chart you drew for part c of 
Exercise 3-5^; Set C in th^ mai^ text. Assume by "'any size orchestra" we mean 
^ one. thit has" ho feore than 125^ players . Assume the ages of the players are 
integers punched on successive cards. * * 

. - . ■*<:■- 
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A3 -6 ^Double subscripts 

Representation of doubly- suft^cj;i^pt& in ALGOL ^ 

- In Section A3 -5 you learned that a subscripteji variable ^like 

could be written in ALGOL as . ^ , 

■ ^fl^ . ' .. ' ' 

^Nuw, in Section 3-6, yoxx have been introduced' in your *flow chart language to 
doubly subscripted variables such as*t - ^ ' ^ '* ' 

The ALGOIr-^presentation for such sl doubly siibsgripted variable is just about 
what you would expect it to be: • ^ , : 

^ - = X[I,J] 

The two subscripts are separated* by a conima. , 

f 

Thus, the assignment* box ' ^ 



WIN-»-WIN + Aj^" 



could' be written in ALGOL as 



XEN WIN + A[K,J]; 



' Allocation of storage for doubly subscripted ay ays 

' * 'if'. 

An array declaration is required to allocate space for doubly subscripted 
variables. You dan no doubt guess how this fs-done. For example, 

* real array A[l:3, 



declares that acceptable value sy^X^the first subscript on A lie between 1 and 

3, inclusive, and of the second subscript, between 1 and k, inclusive. 

la Section A3 -5 you learned tp write the ALGOL program for an input box 
such as 



(Aj, I = 1(1)1|} _^ 



THERE: read(A[I]); / ^ 

. " ' i£ I S ^ then go to THERE; 



It is possible to genej'Slize this technique to take care ot :^nput boxes such^as 



— {{Aj^j, J = 1(1)M^, I-J 1(1)N} 



but to do this in_ Chapter A3 would cause you busy work which can be avoided ^ 
when we have more powerful tools for looping that you will learn in Chaptel- Al^^ 
For now, 'merely place a comment in y^uFTuXJOL program showing \ghere the input 
(or output) of a^ doubly subscripted array is to occur. Then, in Chapter If^ 
you will learn h^w to complete the program tp run on a computer. 

' * • . * ♦ 

With this convention, we are now prepared to look at an* ALGOL program for 

the problem in Figure 3-34".. ^ ' ' 

^ ^^S^^^ comment GAME; 

pr^l array A[l:6, 1:6]; ^ 
' real^ WIN, LOSt, NET; ' - , - ' 

integer .1, J,-.K,. L; i \ 

comme'nt INPUT OF ARRAY A[I, J] GOES HERE; 
'rt5ad(K,LTr \ ^ - : ' 

' ^ * WIN := 0; ' 

X* " LOSE := 0; . ' , 

^ W^h: if J < 6 then g6 to^BOJ© else go to B0X6;^ ' / ^ \ 

■ ' B0X5: WIN := WIN + A[K,J]; . ' • . 

4^ . J := J' + 1; 
^ to 30X4; . ' - * ^""^ 

^ 'B0X6: g I < 6 then go' .to .30^7 else go ^to B0X8; * ' - ' 

BOX?: toSE := LOSE + Atl,L];, * • - \ ' ^ 

•|o«toB0X6;r 
B0X8: " N?T := WIN ^:5L0SEi 
. ' ^ wril;e(NteP)f 
' eni ' ; ' / 



Exercises A3 -6 . *^ . ' 

! } 

1-5. Refer toj Exercises *1 - 5, Section 3-6. For each of thes'e. exercises 

you have^ already drawn flow charts describing certain "row-" or "column- 
operations" on a matrix. Now your job is to write equivalent ALGOL 
statements preceded by all necessary declarations for each of these 
' partial flow charts- ► » sj 



^ 



Chapter Ak 
'LOpPING 



4^-1 The "for clause " and the "for statement" ' ' 

It should come .as^no sun>rise that the i;ein^kable box ve called the. 
."iteration, box" has a perfect paralO^l in ALGOL* This shorthand is 'called 
the "£or clause." A^exairaple is shovn in Figure Al^-l. ^ * 





J 

I 1 ^ 


I < 


IDOO 


t " 


I <-I+l 






T 



for I :=: 1 step 1 until 1000 do 

•;. y \. \.- .. 

Q^initial increment final value 
. value^ or • . upper'limit 

decrement . or 

lower- limit 



Figure Ah-l. The iteration box an^ an equivalent 
■r for clause 



An entfre flow chart loop consisting of the iteration box and the "corapu- 
'tat iqn portion "Jiung'' on it can be expa^essed in ALGOL with the fbr stateme^it. 
We present this parallel in Figure A(^-2*'^ The algorithra'displayed, you vill 
^jcognize, isj the Fibonacci , Sequence generator* (Figure It -tS) 

The "for statement" consists of a for clause fdllowed by' a^single state- 
ment, .either- simple or compound, that "is ito^te^ repeated* * , 



LTERM 1 



begin 



1^1 



KIOOO 



integer I, LTERM, NLT, COFY^ 
LTERM := 1; 
NLT := 0; 

for I := 1 step 1 until 1000 do 




computation portion 



Figure Ak'2\ The flow cYiaft loop and the equivalent 
ALGOL for statement 



*In the example shown the whole for statement is: 



for I V 1 step p. until 10( )0 do 



compound 'statement 
.that is to be 
repeatedljr executed 




The general forp* of the for statement is then:' 



-dfor /clause 



simple 
statement (or ) ; 



J ' 



compound I 



y ode for statement 



).'\\ ' \\\\^''\ 



' Th^ foim oK the for clause is seen to be: 



for^iOC 



forXiOOP COUNTER := INITIAL VALUE step INCREMENT 
until FINAL VALUE do 



• We mean to imply here that if the INCREMEN!r i§ a positive quantit^the 
FINAL' VALUE has the significance ^of axx upper limit, while if the INCREMEM is 
negative (i.e., a decrement) then the PINAL VALUE has the signif icBnce of^, 
beings loVfe-r limit for the LOOP COUNTER. 

\ The statement that follows the word "do" is repeatedly executed once for 
eachNalue assigned ^o the LOOP COUNTER. Of course, after each .assignment of 
a value to the LOOP COUNTER tlTe test is made to see 'if ^ts value r^ins 
• within i^ proper range, ^^^not^ the repetition is dis^con-tinued, and execu- 
tion of the fo^* statement is complete. We th^n go on to execute the next 
^MOOL statement. v" 

^ Here are some examples of the for clause and its equivalent iteration 
^ bo^. Be sure to study each example carefully--especially Example U. 



Example 



for clause 



'^ration box 



1. for I := 1 step 2 until N dc^. 



■4- 



Means: Exicute the statement 



1^1 

* 


I-< N 

0 


I*-I+2 




T • ^ 
ft 



that ipnediately f bllows the woi^ d< once 
in step^s of- 2 until I < N is fal.se 



for each value of 

Corl if you like, until ,I^>N is* true) . Thus, if N h^s a 
vTaljie of 7,- the stiatement would be"^ repeated (four times) for 
values of I of 1, 3, 5,^ *and ?. When the counter is . . 
incre^ted again,, its value exceeds^' Y and we exl"t from the 
l6op%)y proceeding to fekecute \he ne^ statement ^f ter the 
for sTOtement • ^ ' • V^^. , . . * . • | 



Example 



for clause 



Iteration "box 



2. fpr K := 3 step 2 until 8. do ' - , 










j 


kV 3 


K < 8 . 


F - 
















T 





Means: -Execute the statement immediately following the word "do" once 
^ for each value of K until K < 8 is false. K is given an 

initial value of 3 and is incremented each time by 2. The 
statement is executed for K = 3, 5> and 7 (three times). 



'3. for J := I step K until L - 1 do 





J < L-1 


F 








T 





Means:* Execute the statement' immediately following the word "do" once 

* .for each, value t>f. J * until J < L - 1 is false . J is given * 

a starting value equal 'td that cur^jently assigned to I. The* 
increment is the cdrrerft value of if. ' - ~ 



i ^. ilor , j :l= N ^tep 



1 until 2 do ! ^ 



I 






// 


J N 


J > 1 : 


^ F 


J<-J-l 








T 


• 



yieans: , gxecute the statement immediately fo^ 



lowing the word "do^" once 
in vaJ^ie from^^ N In steps ^ 
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for each.Value of J' as it descends 
^ . ' ,of ^-1 'until it is np -longer greater thafc^or equal to ' 1( i.e., 
V . , N- ^ll, times). < ^' ' \ 



A4-1 



, ^ We might now take a look at one niore applicaUon of the for statement 
and then do some exercises. ' Figiire Al;-3 shows how we would write the ALGOL 
^ program Tor the flow chart you drew in answering Problem 1 of Exercises k-l 
in the flow chart text. 

ALGOL 

begin integer I, ID; 

real A, B, C, D; ' * 




end 

^ the whole for statement-^ * . 

Figure kh-i. Another illustration of the for statement 

In an exercise where you are Interested in writing the AlSOL equivalent 

of a flow chart box like: . 



'1^ 



joM should consider the three alternatives that are now availaj)le to you. 
L. read (P[l], Pf^], P[3}, P[4]); 

2* ^ . '^I := 1; It ' ' < 

- BOXA: read (P[I]); 

^ I := I 4. 1; ^ ' • ' . . 

- ' if I < U ' 1:hea go ^ BOXAj ^ ^ ' 

3. • .for I := 1 sftep 1 until \\ do read .r ' ^ 

.t ^ \ ^ ' 

* I a for statement 

Pick whichever fprm pleases you. ihey^will all do (the job. However, ^ 



85 ! 
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i 



there is one aspect to the alternatives which should be pointed out> The 
first method , ^ 

Vead(P[l], P[2j, P[3], P[it]); . * ^ 

will activate thfe reading mechanism and contirtUe imt-il four numbers have been 

» ^' 

read. !Hae data themselves may all \>e on one card or two to a card, or each ^ 

on a separate card. ^ 

The second and the third methods, on the other hand, activate the reading 
mechanism anew each time to read one number, P[l]'. Dat-a f or these 'two fonns 
wist be punched one to a card since only -one nxamber is read from each card. 

, Burroughs, (Extended) Algol allows an interesting variation, a for claus e 
inside the read statement. The following statement is legal in Extended Algol: 

READ (FOR I L 1 STEP 1 UNTIL N DO P{l]); 

This statement will read, one or' more*'tf^ds, until N nxombers have been read, 
assigning them sequentially to the Jp^, i = 1(i)n). 

IT ' ^ 

Exercises A^-l 

% ft. 
1-3. For each of the other flow charts you drew in answering Problems 2, 

3f aijd k of Exercises k^l, now write an equivalent ALGOL program.' 

k. For Problem 5 of Exercises i^-l writ'e an ALGOL progracf assuming the number 
of employees never exceeds 100. * ' - 
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Illustrative examples 

There are a number of simple examples of. loops in Section h-2 of your 
flow chart text which can be easily translated into ALGOL code with the 
aid of the for statement » We shall use these to further illustrate some of 
,the d/tails in the proper use of* the for statement. Figup^AU-U shows ALGOL 
coding equivalent to the flowcharts in Figure . , 



for I := l"step 1 until N do i 


for J := 1 step 1 until N do 


^ begin ' -c^ i 


begin 


. ~' y':= x[i] t 3; j 


^ re/d (X); ' 


write (X[I], Y); . ( 


y := X t3; 


end; J 


write (X,Y); 




end; 


, (a) _ ' 


(b) 


Figure Ah-h. i ALGOL for flow 


charts in Figure k-8 


< 






9 



Similarly, we see in Figure AU-5 an ALGOL equivalent of the flow chart' 
in^ Figure U-9(a). ' ' 

i 1 



SUM := 0; 

for J := 1 step 1 until N do 
SUM A[J] + BUM; ^ 
vrite (SUM); 

Figure -AU-'\»' ALGOL for Figure U-gja) 



•.Before looking a' 
the ALGOL Tor Figure 
Figure ^AU-6* 

■'\ • - 



^our next translation,* try^^our ha id at writing 
U-9(b). Nov compare your code with that in 




MAXj=absfA^ 
•af single! ^^^/is''^^''^^^ 

for^s't^tement ^ M abs A[j]^ > MAX thi^n MAX := abs A[^']; 
' write (MAX); \ " ' 



Fi^re AU-6. ALGOL for Figure 4-9(1) 



87 \ ■. 

H -v. 



Ak -2 



Notice that the statement which is to be repeated; under cfoirtrol of Iqop 
counter J, is an if statement. Th§,^ semicolon after AlJ] marks the end 6f 



the for- statement . 

In summary, we see that any single if - statement ^ or read, or write, or 
assignment statement may be the candidate for repetition. If more than^one 
statement is to be repeated, we '!.weld" ^Sem into one by forming one compound 
statement^ with the aid of begin and end. 



Exercises k\-2 Set ,A- 

\En each ot the following exercises , v e p r esent ALGOL code for the flow 

charts in Figurg l|.-io(a), U-10(b)> U-ll(a) and 4-ll(b); respectively! Your 
_ I- » , 

•Job is .to indicate what errors, if any, have been made in the coding process. 

The necessary declarations are to be disregarded here. 

* » • - 

1. For Figure li-10{a): 

MAX := abs (^Al); ^ 
INDEX := 1; V . * / # ' 

for J := 2 i n ^>fe^s of 1 until N • , ^ ♦ . 

• if abs(A[J)) > MAX" then 

begin MAX := absCA[j]^; 
' , INDEX := J; ' 
end; ^ - 
write (INDEX, MAX); 



2* Forffl|gare ^-10j(b): 

MAX := abs A([2)) 



for J :=^'U step 2 until N do> jt 
if abs(A[#] ) > MAX; then 'MAX 
write (MAX); 



For' Figure U-1 



A{J]; 



FACT ^\ * /' * 
for jk := 1 step . 1 UQtj.1 N do; 
FACT : = 'K X FACT;^ 
write (K, FACT); 
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"i^-/ For Figure U-.ll(b): 

begin LTWH- :=i 1; 
IT NLT := 0; end; 



for k := 1 step 1 until, N ^ .* 

begin COPY := LTERM; ^ 

LTERM :== LTERM + NLT; 

NLT : = 'COFi:; 
end; » ^ 

vrite (K, LTERM); 



N 1 



Exercises Set B ^ • 

1-17 . For each of the flow charts you drew in answering the exercises" of 
Section Set A, now write the equivalent ALGOL statements as parttal 

programs* only ; Do not bother to write the needed declarations. 

For 'Problem -12: Is the following code correct? If , not, why not? 



f.or . I := 1 step 1 until N do 

— > , " - — ■ ^ ' ' 

"^if abs(P[l] ) > 50 then begin • 

W.^ := *P[I]; ANY := 1; end; 

Jm := 0; 



You may now be interested in seeing how the flov/chart of the^faptots-of - 
K algorithm. (Figure 4-l4) is coded in ALGOL. Here it.|^' in Figure A4-7. * If 
yoyihave done tjie exercises jln the prebeding set, you db±ild ha|e no problem 
in'l^ol'lowijig the program in fthis figure. ^ i ' - ' 



witer.Tthis Is one 
$or statement 



I. 

begin , comment Finding the factors ^f N; 
real BO] 

integer! ^y^^ 
read (l 

sqrt(N)i' 
'The factors of", N, *'are*'); 
vintil 




4 
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Similarly^ you ^should have no problem fallowing the way we code the 
poI^Tioiriial evaluation algorithm' (Figure UX?) in ALGOL. This is shown in 
Figure AU-8. '* • A \ 

begin comment Polyriornial evaluator. Sundoj/ method;*. * 

* • real array B[0;3]; 

real X, VALUEj 
integer I, K; 
BOXl: for I. := 0 step 1 until 3 do read (B[I] ); 
read (X); * 
VALUE := B(0];^ ' 

for K := 1 step 1 until 3 do — 
VALUE VALUE X X + B[K]; 
' • write ("The value is", VALUE); 

end 

Figure AU-8. ALGOL equivalent of the polynomial 
. evaluation (Figure U-17) 



In the statemeat labeled BOXl, the use of a for clause allows us to 
« p ' • ^ 

repeat the statement: * , ' . 

■ r^dd BtlJ; > r " ' 

for various values of I* This is the equivalent of the flow chart notation 

r I j . , |{B^, I = 0(1)3) I f 



Exercisfes Ah-2 S.et 0 



ajswering 



For each of the flow charts you drew in answering yhe three problems of 
Exerc.ises i+-2. Set B, now write the equivalent' full ALGOL programs* * For 
Problems 1 and 2 assume that N will never exceed , 50.' ^ Check the Main Text 
for details, on Problem 3(i6)* ^ , ' — . . * 



\ ' ' ^ ' 7 

^ * ' ^ Ak-3 

* * ' ' * ' ^- * 

Alf-S Table-look-u£ \ * . ^ 

We now test o\ar ability to yrite the ALGOL equivalent to the table-look- 
up' (Figure h-2k) OBing tb^ bisection meth^. Figure shows the program/ 
We assume for the ALGOL program that the table to be stored'will never contain 
more than 200* X*s' and 200 Y*s. 

begin comment Table -look-up by bisection; 

real array X[l:200], Y[l:2d0]; . ^ ^ 

real A; 

integer K, LOW, HI5H, MID; 
read'CN); 

for K := 1 step 1 until N do read (X[*K], Y[K]);- 
read (A); 

'if X[lj\ A then begin 

' if A < X[N] then go to,B0X5; ^ end ; 
write (A, ."is not^in the range of the table. ")*;^ 
_go to HALT; ' - ' \ ^ 

B0X5: LOW := ^; * 

^g6H h - N; ^ o' . - • 

B0X6: if HIGH- LOW = 1 then begin 

write (t[LOW], tf[LOW], A, X[HIGH], Y[HIGH])| 
• ^ l2 HAJjT; end; 

; MID := entier((LOW + HIGH) / 2); c 

'if A < X[ MID], then . ' - • 

|. begin HIGH :=j MID; , ^ 

I "82: i° #0X6; exA 

else begin *L0W :='MID; 
go to B0X6; end; 



/ 



HALT: 



end 



Figure Ak-^. ALGOL equivalent of ;t able -look-up 
^ , by bisection 

Study the corres]pondence between this ALGOL program and its »flow chart! 
By now-2^ou shoiad rea^^iise -there are many equiValent'^^GOJi prograiys. The oni 
jin yigure Ak^9 is only onJ 'of several possible ones. You*may prefejr jio.codL' 
the/ AIXK)L somewhat di^tektly^ , - ; ' ' ''^ 



Exercises 



Write angALGOL urogram equivalent 'to "the flow chart in ,Figure h-^^, 
Assum^-^that we will n6t ^ieed t (3 'store more than JOO X^Y 'pairs In Memory 
at any- dne time. ^ ^ . • m 
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Ak'k Nested loops . ■ . ' 

Just as one loop, with its iteration box, can form part of the" cornputat:^ 
portion of anotijer loop, we can have one complete f'or statement become part of 
another. The statement which Immediately follows a for clause (i.ev, alight' 
after the word do) can either be a for statement itself or it can be a compound 
statetjent one of whose parts is a for statement* * ' i - 

. For our first example, examine Figure beginning with Box' i^-. We . 



now show the equivalent tA^LGOL Qode in Figure Aif-10. 




outer for 
statement 



inner tor 
statement 



writer {"The "total is", TOTAL); 



•% Figure A^-10. Nested for state ments 

- ' — - ^ r ■ r- 



The indentation of the' ;stat^ments helps to suggest the idea of nesting. 
The compound statement which follows tjj^ord do'of^the first for* clause is 



^the computation portiorr of the out 



Thpre are three parts .to this 



loop. 

compound^ statement,* the second pne being^ another for statement which has its 
own computation port;lon. When executing these ALGOL statements the computer 
•can keej^^itack of what loop it is in at ^all.time^. 

Ndw let*s see how to write the whole program\for Figure ^^-^ We assume 
the matrix can have ^ tip to' 50^ rows and 50 *columns^. Data for .thV^gatxix 
entries will*be^ assumed te*^ punched in row by row i)rder, one Aumber pfer data 
'eara. * . / i^i^v ' / ' ' ^ 

Ouf ^:^s^ express Box 2 ^ ALGOL* . 15ou jnay rentember that 

we sidesteppe^^ a i^lem like this in Sectl^^^S-^ arid promised we would tell 



you how to ^^^^^ Chapter A^., You have probably already figured '^w to do 
this with -nested'^l^ .statements as shown in Figure A4-11. » 



Al-h 



for r : = 1 step 1 until M do 



{CAj^j,J = l(l)Ni^I=l(l)M! 




i- computation portion the 
. outer loop^^. . ' ^ ^ 

coraputatTon portion gf tW^ / . 
inner loop 



Figure Equivalence "between box 2 of Vlow chart 

and nested for statements 



After studying this figure you can probably see hov vfe might print out 
the matrix entries row-by-r^ow order. *-}^e could say: / 

do . ' 



fo?^j2?:=r 1 step 1 until M d( 



for J := 1 step*l ^ntll N do 
write (A[I,J1); 



HoiL^ould you print out the entries in column-by- column order? Just 

re-verse the order of the two for clauses; ' • ' ' ' 



for J := 1 step 1 until N'do 

for I := 1 step 1 un^il M do 
write (A[I,J]); 



We are now ready to write the whole ALGOL pi^gram for Figure ^-29. * Here 
it; i« in Figurfe ^Aii-12. 



begin 



Ah^k 



end 



comment suSnming entries of a matrix; 
.real array ' A[1:50V- 1:50], SUM[l/:50]; ^ ... 
comment We need to reserve 50 locations for the SUM vector 

and- enough locations for & 50 )J< 50 matrix A; 
real TOTAL; / ^ •^ 

integer ' J, M.'^Nf ' ^ . ^ 

read (M,N); * ' \ 

for I 1 . step 1 until M 

for. J :£ 1 .step ,1 ^gtil N do _ 
read (A[l,J])-J ' 
TOTAL 0; 

for 1 step 1 antil M do- 



begin SUM[l] := 0;' 

. for J := 1 step 1, until N do , 
• - SUM[I] := A[I,J] + ^Sli^fi.]; 

'TOTAL :^ TOTAL'V SUM[l]; 
end ; ' , ^ ^ 
write '("The total. TOTAL); 



Figure Ali-12, 'ALGOL^ equivalent of Fi^re 



Exercises -Ak-k Set A 



1-3. For each pf the flow charts you constructed for)th^exercise^-^an 
Secti©)a h'-k, Set A, write tjfie equivalent ALGOL statements, . Don»t bother 
wriMng declarations unless you feel they add -to yo^ur understanding <bf the 
translation problem- • • * ^ . ' ' ' ^ * \ 



Triply-nested loopsrare just as .easy^tb j^i^te in ALGOL by the nesting 
for statements as- they are to draw in »the "flow charts . Figure A4-13 shows 
how the "stickler" in Figure k'-^Sl would be coded in ALGOL- / 



of 
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99 



begin , coirjnent^ The Stickler; 

integer U; * ' '.\ 

^ for H := 1 step 1 until 9 do 

• £2£ T * = 0 step * 1 until 9 do 

1 for U :=*0 step 1 until 9 do 



iflOO>4H+lbxT+U = H f 3+T't fo 
then write (H,. T, ^ 



end 



Figure Al^-13. 'The stickler in ALGOL 
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Jicercises A^;-^ Set B " 



flO'W 



Write ALGOL programs for the flow chart solutions you obtained fo*r 
ProDlem 7, Exercises h-k SpzB ' m fhe Main Text. 



Exercises m-k Set Cy 



1. Write d complete progr^ain" f or the Prime Factorization Algorithm, Figure k-22» 

2. Write a ci^mplete ALGOL program for the shuttle interchange sorting algo- * 
. rithm, Figure k-'^k. Assume you may wish' to sort up to "500 numbers. 

3. * Write a complete ALGOL program for the sort algorithm 'shoVn'^in Figure ^-35. 

Make 'the same assumption^ in this- program' that you are asked to makfe in 
the precedirlg exerci'se. "I ^ • * ' 

h-* Writes .a complete ALGOL program for finding tl^ longest decreasing. suJd** 
sequence-. Base your program on the flow charts in Figures i4--38 and ^^-39. 
Assume the given sequence will not exceed 100 ^values in ail. 



} 



ALGOL ^apter A5 . 
. PROCEDURES ^ 



A5-1 . Procedui 




The AIjGOL .translation of ,a inference flow chaH -is called an 'ALGOL ^ ' 
PROCSrU]^ This ^procedure look^ very much like a.,com\^te ALGOL program 
except within the initial group of asserti-<^ns, corresp^Q^ing to the j^ov chart 
funnel. The ' hgad of 'a procedure consists , an introdact;p}p( symbol (to be ^ * 
explained shortlefj), the name of the procedure, a list of paiv^eters and, * 
y^something about their types. Th!^'^ head is followed by a body to carij^ out 
the t^ask of the procedure . ^ r 

• • ' ^ Jhe entire- ALGOL procedure, (the head and the body) is to be thought of as 
^declaration/' This procedure declaration ^ st be included in the head (along 
with such-declaratiorfe as real , integer , ^tc.) of an;y- program using the pro- 
cure. \ , ' ' » 




declarations 
* 

rocedurfe head 

^^procedure bodyj 
declarations 



procedure 
declaration 



program head 



e?nd 



statements 



^ program body 



Figure 'A5-l» 



Struc'ture^of anv^^^LLGOiN|*r 
in^ludipg a proc€idure 



ogram 



Earlier in Chapter 2 we defined an AUJOL prpgram as a sequenci^ of dfeclara- 
I 'tions fSiowed^by a- sequence of ^statements, with the .whole thing enclosed by 
"-b6^in" an^• "end". Another »ame for a program is a block. A block must^in- 
^clude at least one declaration after the begin . Otherwise, we ^jr- have a com- 
ppuijd. statement Vathgr than a block, t / ' 



The body of a procedU3?e, decilaration^pay be a single statement.' For 
example : ' ' . , * . ' . 



integer procedure parity(i); 

* integer i; 
if i = 2 X entier(i/2) then parity* 
else pa'fity := 1; 



' procedure 
h*ead . ' 

procedure 
iDody 



^|)rocedure 
* declaration 



.The body of a procedure ^y also be a compound statement. if,loi:al variables 
are required, the body will be a whole program or block. . , 

*^4n ALGOL i^rocedure to evaluate a function- ^d report a single value is' 
called a fun cu ion procedure *, (A second type of ALGOL procedure will be en- 
countered in Section AJ--^.) •Forxa function procedure, the f iov^ cihart funnel » 
corresponds to an assertion at the beginning of the procedure 'declaration. 
This assertion begins jith the vo^ds real procedure if the valu^ to b^ reported 
is real, or in-eeger procedure if the^value'tQ^e reportetl is an intege'r. These 
words are followed ^by the name of th^ function, its argument in parentheses and, 

a semicolon. For example: / ' ' 

,1 • / . • . 

» . f ■ ^ ,» 

• real , procedure sqroot(y); • * ^ , 

The, head of this procedure declaration concludes with the type declaration for 

y. The use of this function procedur^is shown in more detail in Figure A5-2. , 
*m * '* 

\ - ' * . : * 

begin comment The head of the ^program using the sqroot procedure comes 
rirst.' It is jnaide up of tlie usdal type declarations and 



real 



,the procedure declaration for.sq^Oot.; 



comment ' The procedure (declaration for sqroot .followg; 



real procedure isqroot(y); 



real ty; 
begin 



/ 



sqrdot 



end 



comment* The body of the program uging the ' i^^qroot 
procedure\completes this example;^ 




z :=a^+ sqroot (x); 



^f g 0 then^ z^j^^^- ^ sqroot(a); 




Figure A5-2. Use of an , ALGOL function procedufre 



/ 



^ ''. A5 

. , - • • ' o* ♦ . ^ 

. Since Special symbols likfe^ v/ are not available in ALGOL, Replace sucH a 

syrabai with an alphabetic name ^ for .the„fimct ion (in this case^ sqroot). Any \ • 
name can be chosen except 'for 'unusual reserved words. 

•ifou are already familiar with the use of standard mathematical 'functions - ' 

like, .kqrt, sin, abs, etc. (See Table A2-2). ALGOL prpce'dures are different * ^ 

' / " ^ * • ' is — 

from these standard mathematical fur^ctions, -even though our first example, 
^sqroot, serves the- same purpose ^a*s sq-A. The difference" is not just in tlje way * / 
the names ar§' spelled but /Ls mainly in the fact that^the standard mathematical 
functions are paa?t of ,thb .compiler system. The techniques that might be used 
for adding to tUe list of Standard mathematical functions are outside of the 
♦ * scope of this^book. Function procedures provi.de a way that you c^n develop 
whatever 's^ of *ref ^('ence programs you wan^ ^ 

, ^ The body\of an ALGOL procedure may be^enclosed by a begin and an end. 
Just as reference flow charts sooner or later reach a return tox, an ALGOL 
procedure^may eventually reach a final .enclositig end. 'This end corresponds' to 
^ the flow chart return box shown in Figure 5-5. Since the end in an ALGOL 
function procedure does not indicate what variable is to be reported to the 
main program, a convention is needed to identify the value^ to be reported. 
.' The convention used. is that the name^'of^the furfction procedure dt self must 
'appear at least «once on the left si'de of an assigninpnt statement*/ and its., 
v'alue^ wnen the procedure is completed," is. the value* reported. This conven- 
tion intist be observed for' all function procedures Aether the body is enclose.d 
. in begin-end or no"i. 4 " v • ' ' ' ' 

'In other ^spects,, an ALGOL proce^re must conform to the requirements of 
any ALGOL program. • In particular, the type of variabiles used In the pro- 
cedure must be declared. ^ ' : . . * 

An ALGOIr prpce^re is a self-contained'unit one expeqts to Vse many times. 
It 1^ especially convenient to' compile procedures separately, rather than along ' 
with the progi]iams in which they are going to be used. Then one^ can develop' a ^ 
library of pr6cedures which can. be used at any later time. Some ALGOL com- 
pilers allow for the separate tiompilation of pjrocedures; others do not. '^'i-nd 
out which applies for the , compiler you are using. In this chapter we will 

^ V / % ^ • * . 

follow the oHgin^. definition of ALGOL^ which, .without forbidding it, doe^ 



^ .not tell hoy to achieve separate compilation of ' procedures . 

\ 



ERIC 



Figure' A5-2 is intended t;o relate to Figure 5-6> of the fldv cttart 'text 
illustrating features related to ALGOL procedure use. Hie first time/the ALGOL 
procedure j.s required 'oy the "function d/signator"^ sqroot(x), we go to the 
real procedure ^declaration via route 1. Wis declaration directs that the vjaiue 
-of X }je assigned to y ir> the procedure. > It is essential that 'the variable 
in the function designator agree in type with the parameter declared in the 
Lracedure declaration. Thaf" is, since y has been declared real in the pro- 
ce^re declaration, declaration of x^ to be integer in the calling 'program 
would be in er3;:or. ^ ^ ' ^ • ^ 

Vrnen tne execution of the procedure has bee^ coraple'ted, a -value has been 

• ' T ^ <. 

assifc^ned t(j sqroot and ^r^e return to tne statement that requested the , procedure 

' ^ '* . * 

is cy route 1./ «UpoA return to the^ ALGOL program, the value assigned to sqroot 

tis added to a and phe result asslgned'to ,z. At the next function designator 
(in. tr.e- conditional statement) we go tt> the real procedure decl"^ration 

.route 2, substitute n --for-'y in the procedure (note that they are both real), 
execute ,the procedure and return yia route 2 to the conditional statement, the 
result of' the procedure having been assigned to sqroot. 

An actual function prqcediire declaration for the square root can be pre- 
pared with reference^to. Figure' /5r 7 and is shown in F.igure A5-3. 

^ V • • . , ^ ; ^ 

^ Comment square root function procedure*; * . • ' 

* " Teal procedure "sqroot (y) " ' ^ 
real y; . * • ^ 

begin re^l g; h; • ^ * , 

■g :=:i.9'/ ' ■ ; ■ ■ ^ ' - ^ , 

^ , B0X2: h :=.0.5 X (g + y/^)r 

if abs(h ---g) <.p-0001 then go to-B0X5; 
- g := h; • /-r. 

go to B0X2r 
. , B0X5': sqroot ':= h; 

end ' * ^ ; ' , - " 

^ - Fdgure A5-3* A function procedure declaration for i^quare roots 

"As inspect this function procedure, we take the opportunity t^ warn 
you about something you are unlikely to do anyway. That is, do^ not assign to 
an argument (in this €ase y) of -^a function procedure! It is never^. necessary " 
to do this and with some ALGOL c6mpilers It can produce very dir^ results. 
You will be reminded of this danger area, once more in Section A5-5* 



, Exercises \ - " ^ ; ' , * 

1^3. Write ALGOL function pjrocedures for the flow char^ts prepared in 
Exercises nt&in text. 

^ ^ ^ ' /■" 



'J 



\ 
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A5-2 Functions . and ALGOL ^* ' • , 

The 'flow ehart text tells us that we can view any flow chart which, given 
a value, will pix>du|:e another value as the evaluation of abme function. The 
statement is as true for ALGOL programs as for flow chart^'. Although mathe- 
matical functions exist which, cannot evaluated, eith^ with a ^*low chart or 
by an AipOL program, .the common^ usage of th^ word function in computing is 
strictly limited to tho^se which can evaluated with a flow chart.* In com- 
puting, then, a function i& commonly thought of as a r^ationship for which a 
reference flow chart is 'usedj • 

The domain of a .funt^tion,^ in -computing, is the set of values that the 
argument in the funnel of the flo^ chart can take on. ^he range of a function 
is the set of valde% that can be reported to the main flow chart. In ALGOL, 
the domain^ can be either a set (5f real numbers representa]3ie in a' computer or 
a set^of m^gers repre^sentable .in a computer. 



ERIC 



102 

lOG 



A5-3 > ALGOL function procedures ^ ^ ' . 

. 'ALGOL function procedures can bave '^s riiariy arguments as are necessary, ^."^e 
min function prpvides an Example . Tlxe procedure declaration in Figure A5-14.'' - 
corresponds to Figure of the flow chart text. 



comment minimum of two arguments fSanction procedure; 
real procedure min (b, c); ^ 

real c; ' - * 

begin real z; , * - 

if b > c then go-to B0X3^ ^ * 
z :=: b; go to B0X4; 
B0X3: z^:- cj 
BOXU: min.:= z; ' \ 
, . end * / 



.Figure A5.-U. A function procedure of two arguments 

Notice that the type Qf each' Variable has ^een declared to be real by the three 
;type declarations. ' That is, the function procedure -expects to receive two real 
values and to report* a realjalue. The var5,able z is also declared to be 
real. ^The procedure declaration *could be changed easily to expect integer 
.values or to rej)ort an integer value by sippropa?l,a-tel;i{ substituting integei^ for 
real. *In Figuse A5-U we do not need to*introduce the variable z since vmin 
can serve the same rgle. For this reason Figure A5-U can be replaced by 
Figure A5-.5./ - > y , ' ^ 



comment minimum of two argtiments fiwiction procedure; 
' real procedure min (b,,c); . . ' 
real .b, c; 



if b > c t)ien min := c else min i^y^b; 



Figure A5-5. improved miji procedure declaration 



6 

Flgul-e A5-5 contains other improvements. Not only has the extraneoiis variable ' 

'. ' » -■^ ■ ■ 

2., "beep dropped , but assignments have been inciuded:"in the if-clause.. The 

^ p ■ ' 

body of the procedure declaration is then just one statement. 
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• The Tjarameter list of an ALGOL ppo.cedure declaration may Qontejm integer 
♦or real vaj-i^bles, varial:les containing alphanumeric information, Aames oi 
vectors and names of arra;^^ . In every oase there must ."be a one-to-one coivres-^ 
pondence in ^"both number , and* type betwee^i parameters ia the (actual) list or the 
funjtion designator and those in tlie (formal) list^'of the procedure declarfetion. 
* - - . Co;;ifusion would rei^n if ve tried to refer to the procedure declaration of 
Figure A5-5 by writing, something like' 

• ' ' ■ . ^ ' 

' -y ' , ' t = min(a, c) • ^ ^ ' .« 

' ^ . , '* ' " • ' ^ . < ' I* 

I I * ^ ~ ^^(^^ where m has been, declared 



to be an ir\teger. 



Dce L 



*bfie function ] roce^dure declaration ma:^ use another function procedure. 
Both 'declarations can then appear in the head of thevmain program. See 
Exercises Set B. • ' . \ 

• A classif f j^ation or* variabiles ^ ^ . 

The distinction between local and nonlocal variables with respect to 
ALGOL procedures is'.th^ same as is described *ln the flow chart text.. Thus, in 
the^ two pf'oc^ dares for rain given in Section A5-^, the arguments b atod c^ 
are_n6nlocal variables. ,In the f irstij^jTocedure z is a local variable. 

Difficulties can arise 4f nonlacral variable's are changed 'within a function 
procedure declaration. Wh&t can happen depends to sorae extent on the partic- 
ular compiler that ic being Used. Utiles s you are absolutely sure about what 
can happen, avoid^hangi^ig nonlocal variables in function procedures! 

• ' An appreciation of the distinction between loc§tl and nonlocal variables 
can ^be had by recalling that procedures are separate units. Upon leaving a 
procedure, the valuep* of Local variables are lost; the storage space' used to 
keep^this information is freed., llonlocal variables, on the otl;er hand,- remain . 
defined after leaving a procedure. ' . , ' ■ 

A local variab,le in an ALGOL procedure is corapletely independent of any 
variable vith the same name that nvLght appear outside the -procedure . Notice 
that the lo(Sal variabla is declared, in the body of the |)rocedure, and no t^ along 
with the' specification of the variables wh^cl^ appear inr Vhe parameter lis^t. We 
will^^way^ insist that nonlocal variables ^te given in the parameter list . 
There is another way in which they can apjjear ii> ALGOL procedures, but we 'will 
•not consider this other possibili-ty . ^-"v/^-'-^ *' * ... 



- • ' ' • ■ ^ / ' 

Composition of fan ct ion designators ^ '* ' 

7 • 

The situation with respect to composition of function designators is 
exactly as^ described in the f^ow chaH text. This is just what you have 
.^earned as composition^ of fUYictions. -That' is/ given function procedure dec- 
elerations defining fl(x) and f2U)^ 'one can write' 

y fl(f2(x)); , ; 

so long as the range of f2 is a subse.t of the domstin of fi. Correspondingly, 
the following^ function designators are ehiJirely proper: < 

. : ; \ ' > : , 

>^ y := min(ab&(A4-B)^5.ii)^^^ 

' . ' or y := min(min(f,abs(t))^Q); ^ - , ^ 

or y min(sqroot(b X.b -tk-.O X a X c), -6); 

^ or y := sg.ix)ot(min(x,y) ); 

; ^ .■ . ■ / 

Exercises A5-3 - Set A - ' ' ' , « . - 

1 - 6. ^and 7(a;. Write j^LQOL programs or function procedures corresponding to 
the flow charts prepared in Exercises 5-3, Set A, main text. 

Exercises A5-3 Set B. ^ ^ , * 

1. ^ Write an ALGOL funct3,on procedure for the flow chart of the Euclidean 

Algorithm you prepared in Problem 1 of Exercises 5r3, Set B, main text. j 

2^, Write an ALGOL func"tion procedure for Problem 2 of Exercises 5-3, 'Set B, 
the greatest' common factor of three integers., ^ 

3^ Write an ALGOL program that corres^nds to the" fXow'Ishart for determining 
) * I (a) the nuinber'^rlf non-similar '^triangles; ' U ' 

(b) 'the sum of th^ perimeters of the non-similar triangles corresponding 
* to the flow charts ^you ^fjrepared in Problem 3 of Exercises 5-3^. Set B. 

^* Hritg^aa ALGOL program jfor the algorithm of Problem" 1^-, Exercises 5-3, 
75et B. Try to estimate how much computation will be involved. JMeasure 
computation in terms. :of th^ number of Additions, subtractions and com- 
parisons that' piust be mad#, counting each as 1, ; 
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A^^k : ALGOL " .proper " procedures ' 

ALGOL procedures whicii Correspond to reference flow charts for procedures 
that are not functions are called "proper", procedures. Corresponding to the 
funnel of the reference flow chart is an assertion ^"beginning: 

procedure sort(n,d)'; 
, integer n; , * . 

' * real array d; 

The word procedure is followed by the nam? of the procedure being declared, a 

parameter list in parentheses and a- semi-colon. In the sort example we see 

that an entire vector is identified by its name d in the parameter list. ^No 

attempt is made to subscript d in the parameter list "but d. is declared as * 
. ' * *" 

a real array. -Of. course, n is declared as an,integer. 

Since a proper procedure, does no't report* a value' in the same way that a 
function proce^dure does, the name of the procedure will not appear in the body 
of the procedure -and we do .not attach real or integer to the declaration '^defin- 
ing the pro^^^Sre identifier. " * ^ 

^A proper procedure declaration correspondi^ng to Figure 5-16 is given in » 
Figure A5-6. Ilie dimeiision 0/ the array d does not 'need^^o be specified in 
the procedure declaration. Whatever the dimension of d. may be^(and it must ^ 
be specified in the ALGOLy calling prograih) , n is the actual number of com- 
ponents of d. to be sorted. Thus, the procedure declaration is .usable for 
a vector with any number of components . 



35^ 



comment propep procedure 


for -sort J 




procedure sort{n,d); 






integer n; ** 






real array d; 






- begin 






integer i 




^ ' r * » 


real b;: 






for i:=l^ 


step 1 yntil n - 1 do 




for 


j:=i+l step^^^ntil n 
if d[i] > dUJ then ' 


.do 

z 




* begin 




« 


t):=d[o]; d[j] 


=d[i]; d[i]:=b/ 




end; . 




end 






Figure A5-6. Erocedure declaration for sorting 
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Look at Figures 5-l6 and A5-6 side by si^^^See how the ALGOL statements 
correspond to the/fl^w chart boxes. N6tic6'^^'^so that values* can' be intention- 
ally SLSsigAed to parameters of a proper prooedure.\ We warned you not to do this 
in function prqcefiures but it is right and proper here. This is how a proper 
procet3ure produces its output. ' . . 

Use of ^a proper procedii^e^ is activated by a ''procedure statement;!^, anal- 
pgpus to the'exec^te l^ox of the flow chart text* -The procedure statement con- 
sists solely of the procedure name followed by the parameter list in paren- 
theses and a semicolon, for example:** * ^ 

, ' ' ' ' • " '\oTi{88;h')[ ' 

where Is is -an array having at' least 88 components in the calliog ALGOL 
program. In ALGOL the process of ref,erring to a procedure is termed "calling 
the procedure". * " 

An ALGOL program calling sort, corresponding to Figure 5-23, is 5hown i<i 
Figi^re A5"7« This program assumes that the maximum ,dimen^ ion of b and c 



begin 



comment a program to illustrate procedure statements; 
real array b[l:100], c[l;100];^ '\ 
integetr k,i; ^^^'^a*.^. 

comment the^procedare declaration^ for sort (Figure A5-6) fny:st 
be inserted here; 

read (k); 

» 

for r:=l step 1 UQtil k do read (b[ij); ■ ** 

for ■ i:^l step. 
sort (k,b); 
sort (k, c) ; > 
for . i ; =1 step 1 until ^k do 
begin 

write (b[i]); 
write (c[i]); 
end; $ * 



" ™ ■ ' " or 

jp pgfe^^ k ^ read (c[i]); 



end 



. Figure A5-7. A program calling^the sort procedure 

is 100. We also call attention to thfe comments in the head of the program which 
says that the procedure declaration for sort.mufet be inserted. This means that 
, .Figure A5-6- is to lo^, physically placed, in the head, of the program. We make 
' . this comment rather than the actual insertion In' the calling program here so 
• that the.,figures can be more eas;Lly scanned by the eye. 
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Exercises A^-h Set A • ' 

1 - 5» For the flow charts prepared in Ibcercises 5-U,-*S.et A, main text, write 
AIXjOL programs and procedures . • 



Exercises A^-k Set B ' 


3*^ For the flow charts prepared in Exercises Set B, mAin text, for 

Problems 1, 2 and 3, write ALGOL programs and procedures. 



Exercises A^-h Set C • ' ^ ^ v . * ^ 

1 -'k» For the flow charts prepared >in Exercises Set main text. 

Problems 1 through h, ^rri'te ALGOL programs and/or procedures. 

0 



■I 

I 

I 
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A5-5^ Alternate exits and techniques far^branchiiig 



Provisions for alternate exits and branching from ALGOL proper procedures 
can'mirrQr" the initial discussion in the flow chart ^xt. A*p^rameter is pro- 
ivided ,to indicate, the results of tests performed by the p2T)cedure,» Figures A5-8'»v 
and A5-9 present a procec3ure declaration and a calling pi^gram corresponding to 
the flow charts of Figure 5-25 and RLgure 5-27. ' . ^ 



comment a procedure to test equality oT two complex ."numbers; 
procedure, compe q( a , b , c , d, n ) ; - 
^gal a, b, c, d; 

integer n; • • ' - 

begin ' ^ 

if a = c ^then begin if b = d then ' n:=0 else ' 
n:=:l end else n:-l; 

if 

end • . * 



Figure A5-8. A^ procedure declaration for compeq 



begin 



coinment pieces of a ^program shoving theuse of compeq; 

real X, y, u, v; \ ' ^ 

integer k; "^'-^ 

comment the proeedure declaration of Figure A5-8 must be 
physicallyinserted here; 



compeqt(x,y,u,v,k); 

.if ,' = 0 then ;go to ^%k^ elee go to st3; 



stl^: 
st3: 
end 



Figure A5-9* Pieces of an ALGOL program testing the 
• equality of two comj^lex numbers 
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Funqtion names and statement labels as procedure parameters 

> . ~: ; 

In AlGOJj both function names and labels are allowed as parameters of pro- 
cedures. In the head of the procedure declaration these parameters must be 
specified as to type. For exampj.e: . , — 



procedure SMSG(x^y^f ^e); 
real x^y; 
real procedure f : 



„label e; 



The actual parameters which replace the formal ones in, the call of this pro- 
cedure must match the typ^ specified. For instanc^^ if the call is 

SMSG(Rl,R2,R3,Ri|); ' , > ^ 

then Rl and R^ must Itave been declared to be real in the head of the c^Yii 

program. R3 must have'** been declared as a real procedure ffunction) and m 

im'st be gi label. ALGOL 60 does not require labels to be declared in the ^alli^ig 
progito* '(Extended ALGOL does require this.) ' ' / 

Man;^ procedures £an be written more naturally and easily in ALGOl/by In- 
eluding functions or labels as parameters; In Chapter 7* it would be/dif£i cult 
to write some of/ the procedures in any other way. 



"Exercises' A5' 




1. 



Following the flow chart prepaj'ed in Problem 1^ Exercises 5-5^ ,main <text^ 
write an ALGOL procedure to sOLve twb equations in two /unkirowns . 

'(a) - (d) . Wi^te Jhe ALGOL corresponding to p.arts (aO anil (b) or (c) and 

(d). of .Problem 2 of Exercises 5-5. Use yeitl^r' complete pro- 
% * / 

* gram on the following quadratic §quati9^s: 

(e ) 2x^ - 3x +• 7 = 0 // 

{t) 3.l4x^ - 6.2x - 14.23 = 0 



3. Write an ALGOL pyocediyre and the calling program cforresponding to one 

of the techniotues you used for solving Problem Exercises 5-5; main text. 



4 • .> • — 

'A5'-6 Symbol manipalation in ALGOL » • 

In- Section. A2-8 the input. an^ output of alphanumeric characters was dis- 
. • cussed. Now we want to" find out how alphanumeric data can be processed so ^' 
that we will be able to alter such input data as 

/the quick bro^ fox jumped over the lazy dog 

- - or **,.,. , 

.or, . \ . 

' ' • ' * 

Since we will want to be able to' refer to each individual element in such 
charapter strings, we will associate a separate yariable with each element of 
a str^^ng. , * * • . 

y ^ In Section A2-8 you were told about the read symbol statement to input 
alphanumeric data. You may remember that this statement ajjpeared as, for 
example, ^ 

- * ' • I, 

" * readsymbol(a,b,c); 

which would read whatever symbols were punched the first three columns of a 
card and assign these symbols- to a, b . and c, ^respectively, before proceed-, 
ing to the next statement. ^ 

Comment : In Burroughs (or Extended ) ALGOL, symbo:j: manipulation is espec- 
ially easyr Vari^jJles whose values are alphabetic, numeric oj- other characters, 
are declared as a separate type called alpha. 

* Example: ^ ' alpha a,b,c; 

Each such variable 'can ^or^ up to six alphanumeric characters. ALPHA axrays - 
can also be declared^ It is possible to read or write characters with a free- 
field read; however, it~is of ten\ore convenient, tp,^iore one ALPHA character 
per ALPHA variable.. In ^Extended' ALGOL this can 1:>e done with a read statjeraent 
like the following: . : - . 

' \ read(< 7^A1. >^ for I <- 1 step 1 until 72 do C[I]); 

where 72A1 is a format of 72 one -character ALPHA types. This statement 
will read 72 columns of "alphanume ri c information. A xiorr^ponding write^ state- 
ment can be formed. » 
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In AUjOL 60,- can the readsymbol fetatement^ be used to read whole gt^rin^s? 
If the string we want to read'-is punched on a card, and .the punching goe^ all 
the way across the. card (as you would^ naturally do in punching a long English^ ' 
sentence such as this one), readsymbol Vould have to ^e followed bjr *a parameter 
list' with eighty identifiers '(one for each card column). Iteration on the 
readsymbol statement doesnH help reduce the number of identifiers needed 
since a new card is read for each readsymbol execution..^ ' ' / / 

The way out of this is indicated by noting that th^ readsymbol statement ' 
looks just like a sort statement 6t any other 'procedure stateirient. ' In fact, 
that is algost what ;t is! The statements read, print', readsynibol and 
printsyiribol are all similar to' procedures . They are written in machine lan- 
guage and included in the various ALGOL compilers which automatically insert 
them when needed. None is a basie f>art of ALGOL and that is why input-output ^ 
procedures \iay vary in name and in the details of ;their specifications from 

one implementation to another. \ 

* t 

'All ,we need to do to be able to read and print strings is to ^define new 

procedures. Let us imagine that symbols are to be input from a s^iripg of 

indefinite length (like symbols on a punched paper tape or on cards laid end 

to end) . Now we can define a procedure (and leave it to an expert to prepare 

it) with the declaration head: *' / ■ , 

procedure get symbol ( s , n ) ; ' ; 

integer n; ' . ^ ' 

integer array s; * ' " 

y * 

The purpose of getsymbol is simply to- read the -next symbol of the input string 
and assign it to the nth element of s. The procedure will read a new card 
whenever it is. needed *to be sure that a next ^ymbol is always available.' j 

Now we define a procedure declared by • "* 

y comment procedure declaration for reading strings; 

procedure readstring(length, siring); ' t> • ' 
integer length; - 
integer array string; 
begin integer i; » ^ 

for i:=l step 1 until length do , / 

; ^ getsymbol( string,!) ' / 

end 
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We can also define complimentary procedure's called putsynibol and printstring to 
provide for the^ output '- of strdngs, — '■ 

We are now ready, to write a proper procedure, corresponding to'.Figure 5-28, 
Tot chekch. This declaration- is shown in Figure A5-12. • 



comment k procedure declara"tion to search for a character; 
procedure chekch(n, s,m, c,p); * ' ^ 



, integer n,_ m, c,- p; 



integer array s; 
begin ^ ' ' 

' integer i; 

for i:=m step 1 until n do 

If si i J = c then 

^gin- p := i;* . 



go-vbo vendchekch \ 



. p:=0; 
endchekch : 
end 



end; 



Figure ^-12. *A character searching procedure 



/ 



4^ 



One of the things to notice about the procedure, declaration in Figure A5-12 
is that no limitation ie made on Jihe length of the^sj^j^ng. Thfe same declara- 
tion . can be ^u^ to ins]^ect a string of length -^^^^via string" of length, 5000 
(Tf enough monory is available), y^otjier thing ^iS^^^z^ is that two characters - 
can be compared by the relation " = " . ' 
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An^AIfiOL procedure corresponding to Figure 5-314- is given in Figure A5-13. 



f ^ 


comment 


. . .> 
procedure declaration for chekst; 


• * 


V 


procedure 


chekst(n,s,m,k,c,p); 




> 


integer n, m, k, p; 
integer array s, c; 






begin 

— B A 








1 n +-Ct era t» t» i • 
x:iAi<;^ei r, J, 








comment the procedure declaratiof? for 


chekch^ must 






-be inserted here; 




J 










repeat :■ 


if i>n-k + l tfeen go to zero; 

chekch(n,s,^,c[l] ,p); 

if p = 0 then go to ^endchekst; - 


1 


"""X - — ^ 




■ if .p > n - k,+ 1 then go to zero; 








r:=p+l;' j:=2; 




• 


teslK 


if • j > k then go to en'dchekst; 








i£ s[r]"= ctj] then 








begin Z ;= p I- 1; 
go^ to repeat; 










' * ' V 




end; « 






. end 






s 









Figure A5-i^. A procedure inside a proce^re 



On6 vay to code the procedure declaration for chekst is seen in Figure 
A5-I3. We knov that there are various forms to code a flow chart. Each form 
may be an Equally valid program; the choice of one over another .is often' a 

•^tter of -taste^ To illustrate this point we 'present Figure A5-13a which is 
equivalent to Figure A5-I3 but has a very different appearanc^. Which do you 

' prefe^?^ ' . ^ ' " 
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procedure chekst(n, s,m,k, c,p);» 

integer n, k, p; 

integer array s, c; ^ ^ 

. , beg'in 

• • integer r, j; i ' 

,1 q;omment the prbcedure^declaration for chekch must 

be inserted here; * , . 

repeat: if i<n-k+l thQU ^ * " 

o' ^begin" ^ " "^-^ 4 ^ ^ ' . - 

. . chekch(n,s,^,c[l],p); 

if p / 0 then - 
* . • » » — — — . • . 

J* . if p < n -'-^k + 1 then ' 
( ^ " ^ . -Begin s , . * 

r:=p+l- 

' ^ .for j:=2 atep ^l until k^do 

^ * ■ • . ^begiil^ 

. - * ' i£ sEr] = c[j] then 

»^ — ' ^ . . * > ri=r+l else 

. 9 , . ' ^ ' * begin i;=p+l; 

' ' ' end ; 

* » end ; ' 

' • . * end " ^ - 

. ' ^else p:=0; ^^'^ ' ^ 

' ^ . \ ^. ' end; 




else pt=;0; 
end- - ' ^ \ ^ 

f^igure A5-13a. An. alternate procedure declar^ion 

for chekst ' ' ,^ 

i * 

iThe iater^slifig thinrf^about either of these^procedure declarations is t)iat 
th^y mAke us^ of another *o(;edure and so contain a "subprocedure .declaration*'^ 
An InspectionTof the struc-ftire of Figure" A5-I3 shows .us how procedures can use 
otMfc*^ proce^res to any 1-evel. Figure k'^hh displays this structure. 
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procedure head 




\ ^ 












tiegin 












body '(declaration 


part) 

% 




• 


> 




subprocediire head 


I subprocedure 




► Procedure 


► Procedure 




s ub p ro c e dur e ♦ b 0 dy 


1 declaration 




Body . 


declaration 
















body (statement part) 








end 








I 











. « Figure^M5tl^- Structure of nested procedure "^dfeclarations 



^ One Turther point should be,^made her^* It 'is often very convenie;it to 

consider the length of a string, an4 the string itself, as beipg part 'of a 
^' single entity. On^ w^y to do this is^to use an ^array, say str, with the 
property that its first component' ' str[OT is an integer ^qual* to the length 
of^the string, while its remaining 'components str[ll, str[2], .and on, are 

. }v thfe char^ctefs themselves ♦ ' " • 

^. . J. If Ve now denote JLh^^haracter for which the search of chei^ch is being 
*made by char, the pro cedui^ declaration for chekch is shown in FigAre A5-I5. 
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comm^V^t te^^ied pixjcedure declaration for chekch;, 
' procedtyre ' chek^(str,m^ char,p); * ^ 
integer ra, ihar, p; ^ ^ 

integer array sir; 
^gin 

integer i; 

f^r . i:=;m step 1 until str[l] do 
begin 

< ' if str[i] = ch^ then begin p:=i; 

go to endchekch end ; 

end; 

p;=9; • * ^ 

endchekch: ' . ^ « ; , 

end: ' ' - * - . ' 



"Figure A5-15 • A* n'ew .chelcch 
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Exerci#6es . . 

1-4. For the flow charts prepared in Exej-cises 5-6, Main Text, write ALGOL 
- - procedures and/or calling programs. 
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4^ « - , 

, Chapter AT " . ' 

, ^ ' ' ^' ^*^>' 

' ' ^ SOME MATHEMATICAL APPLICATIONS ^ " ' ' ' ^ " 

^ * AJ-l Root of an equation by bisection 

Since finding the'root of , an equation is &uch a common p2X)blem, we shall 
write the ^[/X)L progr^ ir! the ,^oi;Ta, af a procedure called bisect. This prpgram 
will correspond to the flow chart of Figure 7-5; then we will write an ALGOL 
program which cMls this procedure: ' ' . ' 

' ' The parameters of the procedure are clearly a and b, the 
end^ of the interval under consideration, a tolerance, epsi, which 
specifies the acl^racy-of the resuft, •and a variable, root, whidh 
will be set equal to the root of the eqi^ation. ' 

• . ■ - . > . 

Figure A7-1 shows one way to code th^ l^isect procedure. The first '€hing 
that is dorle in the body of bisect is to jeassign the values of parameters a 
and b to auxiliary variables 'xl and ^re^spectively4 as a safeguard to ' 
protect the values of arguments that match and b in xhe calling program. 
We protect against the ^possibility of there not being*^ root' in ^he interval 
by printing the message indicate<L in this case.* ■ ^ 



T2.2 



■ prbcedure bisect (a, 'b, epsi, root^-''^ 
real b,, b, epsl/ root; 

, real xl, x2, temp, ylj. 



xl 
x2 



a; . , , ' 

f(xl,); ' : \.» 



* yl 

• • • temp := yl x f(x2); • ' ' 

if temp > 0 jblren write ("Method is inapplicable") • 
else if temp = 0 then 

' ^^S^^^ i£ = 0 ^^^"^ ^00* •= 3cl else root := x2; 

• h \^ write (a, b, epsiy root); 

V else begin . " ^ 

' B0X6< ' , ^xm := (xl + x2)/2; *' . 

if abs(x2 - xl)' > e then ' ' 
\ ^ begin -Eemp := yl X f(xm); - . 

if temp < 0 then . ^ ■ 

begin x2 := xm; ^ to B0X6; end 
else if temp > 0 then 

begin xl xm; ^ to BOXb; £nd; 
. • end , • " 

t * * else begin root An; 

,> , ' , write (a, b, epsi, root);-- 

" * 'end ; ' ' - - ' c - ~ - 

4, end; * . . ' , * 

,fend bisect ' 
I * . . ' 

V ' Figure A7-1 

Now suppose^ we wanted, to Uge i;his' procedure to ^find the root of the e^ua- 
- 7x - g = 0 which lies between 1 and 2. Then we should need to 
def ine ,a real procedure which calculates the value of 3x^ - 7x - 2, If we 
choose epsi = lO"^ we would then need to- call bisect by the statement, 

bisect(l,2yl0 ,root). 
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The ALGOL program could, "be, written ^is follows":^ 



begin 

feonmient Place the declaration o^ theT p^ocedure^TTs^t- here; 
real procedure f(x); ^real ^y; ' 

f : = (3 X X A - 7) X X - 2' ; 
real root; 



0 



bisect (l,2/iO"^,'root)i; 



end 



Suppose we wish to use the bisect procedure with a series of functions ^ - 
Though desirable, this wOuld be difficult with bisect as written. We \fOu^ 
have .to reproduce the procedure bisect and "package" it -with each function 
separately » What we need is some means by which to .identify each of a series 
of functions so that we can'- conmunicate to the Tirocedure bisect which o^ the 
functions it is to use when called. Most ALGOL processors take care of this 
problem by allowing the function itself to be a parameter of the procedure. 
Find out if your processor will allow you to do thigt In this book we->a're 
assuming 'this is the case. " . . * 

We now revise our procedure, renaming it "zero" and adding the function 
'name^ f as a parameter. We. also add the , statement label L as a parameter ^ 
Jalso permitted 'in most ALGOL processors). Kov we can have a parameter list 
that is identical with the one in the funnel of Figure 7-6. The revised ALGOL 
procedure is given in Figure A7-2. It 'matches in nearly every^ respect the * 
flow chart procedure given ip the main text. - • * 



\ 
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procedure zero (f, L, a, b, epsi, root); 

real a, b, epsi, root;* ? 
real procedure f ; ' ^ ' 

label L; ^ • ^ 

- f 

begin - ^ . . 

e *• *' ' 

real xl, x2, xm, temp, yl; * 

, xl a; x2 b; 

yl := f(xl); temp ;= yl x/(x2); \ 
if temp > 0 then go to L 
else ' if temp = 0 then 

V begin if yl = 0 then root := xl else root := x2; end ; 
else begin • . 

B0X6: xm :=-(xl + x2)/2; . * , 

' if abs(xl - x2), >•€ then ' 

begin temp := yl x f(xm); 

if temp < 0 then ^ ' ^ 

begin x2 := xm; go to B0X6; end. 
else if temp > 0- then 

begin xl := W;^go to ^0X6 ; end;* 

end 

else root := xm; 



end; 



'fend zero 



^ Figure A7-'2 ' 



^ Along with the two new parameters f and 4. 
tions in the head of the procedure: 



and 



real' procedure f 



label L; 



we notice two new declara- 




These declarations are necessaiy to convey to the compiler the vital 
infoiination that the i^dsuti^ier f is not a variable but a placeholder for 
a function name* Similarly, wa must tell the compiler that the identifier 
L has the meaning of (and is^e placeholder for) a label. 
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Nov ret us use this ^second procedure to find the root of 3x^ - 7x = 0 
between;'^! and 2, the root of - hx^ +'^x^ - x + 3 = 0 bei^veen -1 and 
0 and the root of x = cos(x) between 0 and 1. Eaqji of these equations, 
can be thought of as a function of x. We give each a distinctive name; 

^ . ^ f (x) = 3x^ - 7x - 2 = 0, ^ ^ 

g(x) =r x^ - hx^ + 7x^, - X + 3 = 0, 
and t(x) = x'- .cos(x) . 

If we choose epsi = lO"^, we could then write the ALGOL' program shown in 
Figure^ A7-3. 



(3 X xt2-.7) X x-2; . 
(((x-U) X x+7) X xf2-L) X x+3; 
x-cos(x); 



real procedure f (x);^ real x; f 

real procedure g(x)/ real x; g 

real procedure t(x); real x; t 
> 

comment Place the proce'dure declaration for zero here;' , 
real root; 
^ zero(f, label, 1,2, .0001, root); 
write ( root ) ; 

2ero(g,label,-l,0,2, .OOOl^root); 
write (root); 

zero(t, label, 0,1, .0001,root); 
< ' ^ write (root); ^ to BOXx; 

label; write( "Method is 'inapplicable"); BOXx; 

end " ' ^ , . ) , , 

Figure A773 

jf 

We r^ow show that it is possible, if we wish, to complete the analogy 
between our ALGOL zero and the flow chart procedure. Up to now we have pro- 
tected the incoming values 'for the third and fourth parameters by reassigning 
these to the auxiliary or local variables xl and inside the procedure. 

This achieves the intent of the "wavy.lin^", i.e.,, xl , x2 used in. the 
funnel which tells^us to protect 4:hese values. ALGOL gives us an optional way 
to achieve this that is closer in spirit to the wavy*«*Lines . We see this done 
in Figure AT-h where twe^ repeat the head and the first few statements of the 
body of a final vei*feion o£ zero. 
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procedure zero (f ,L,xl,x2,epsi,root); 

I'eal Xl^x2,epsi,root; • ^ 
' . r^al p3X)c$dure .f ; ' » , ' 

label L; « * •. ^ ' 

begin . ^ » 

real m,temp,yl; ^ ^ • 

'yy:= f(xl); temp := yl X f(x2); 



end 



Same as figure A7-2 



Figure A7-^. ?inal version 



Notice that we have used the parametei>4iames xl and x2 in pl^ce of 
a and b, but have declared these in a special declaration 

value xljXS; ' ' * ' * 

%o be parameters whose v&lues are being supplied to the prpcedure (i.e., slips 
of paper and not window boxes) . Making xl and x2 each a "value parameter**^ 
means we no longer need the explicit pix)tection mechanism we used before of 
writing assignment statements that transfer the values to local variables. 
If you decide to use the value ^declaration in^ any of the procedures you write, 
remember this simple restriction: A value declatation must be the first dec- 
laration in the procedure heading after the procedure name and the parameter 
list are given. » 



■fetefcises A7-1 

1* Write an ALGOL 
Exercises 7 

> and'the Indicated 
with ep^i = 10 
hand- calculated 

2. Write an ALGOL 
drawing the gr 

3. Write and run 
Exercises 7- 
hundredth of 
the crossover/ ^otrA : 




A7 



to solve all of the equations given "in 
4 Use the indicated intervals 
ranees. Include equation 3 a Second time 
program and compare your results with the 

V 

out the function evaluations, needed in 
7-1, Set A, main text. Run your program. 

to solve the alley problem (ifo. 6) in 
text. Then solve the prqj^lem ^o the nearest 
( ladders are- 25^83 '"^and 19.1i; ft. long and 
i7 ft. ab^e the ground. 



i^- - 5- For each of the flow chart solutions you prepared for Problems 1 and 
Exercises Set D,. employ the zero procedure (Figures A7-1 or 

^7-2) and write the companion ALGOL program and function procedures. 



i 



A, 



ERIC 



A7-2 The area under a curve: an example , y ^ l/x , Between x = 1 and x = 2 

Since the area under the curve y = l/x is of interest in defining loga- 
rithms we begin by ^writing a simple ALGOL program for the calculation of -the - - 
approximate area under this curve betveen x = 1 ^nd x = 2. This calculation 
will provide an approximation to £n2. We assume ±hai„.-Axi--easrar-^tjOleran^ epsi 
is read in from a card and that calculation of the approximate area "to be - 
carried out by doubling the number of subdivisions each time ,a.nd 4;ermink^^ng . * 
the calculation when the abso value of the difference of two successive 



approximations is less than epsi. The following program in Figure AJ -5;^ follows- 
closely the flow chart of Figure 7-l6. Remember that f(x) = l/x. ^ 

begin 

\ integer n, ^ 
real epsi, AREA, S; • . ^ 

array jr[ 6:100]; ' ' 

read (epsi); ' , • . ^ . ^,Z^^^~ - ■ - -^^ 

' T[0]:=0.5 X (f(l) + f(2)); 

n:=l; ' ^ - : / - \^ 

B0X3: S:^; \ _ - ^ ' 

for k:=l step 2 until ' 2 | n - 1 -do J , 

' / S:=S + f(l + k/2 |ri)Y " — 
T[n] :=0.5 X T[n-1] + s/(2 | n); ' 
if'abs^T[n] - T[n-l]) < -epsi.then go to B0X9; 
n:=n'^+ 1; 

go to B0X3; , _ _„^. 

B0X9: AREA := T[n]; ' ' ' ' ^ ' 

write ("AREA AREA); 

end ' » ^ ^ ' 

Figure A7-5 • ^ * * 

Exercises A7-2 • 

1. In the above program it is implicitly assumed that the calculation wilV*^ 
'terminate before n exceeds 100. ^ 

• f' 

(a) Is it possible for n to exceed 100 ? 

, (b) What would happen if it failed to teiminate before p exceeds 100 ? 

(c) Add some statements to the above program to protect against this. 

undesirable event, even if the error tolerance is not satisfied. ^ 

Print out a message in this case indicating failure to satisfy the error 
tolerance. ^ *^ ' 

^ -126, « 

' ' 12.9 



5. 



AT 



2. Criticize the above program for inefficiency, Revii 



ke^lt -more* 



efficient by following the flow chart of Figure W-l?.* Also incorporate 



a safety termination if 
first 0.01 and then O.-OOl — as""valu^ 



exceeds lOOl^Jy^^^y^evise d program using 
epsi. - 



Instead of ^rminating the calculation of the approximate area when the 
absolute value of the difference of two successive approximations is less 
than e]^i we coul^; terminate .ttie calculation after a. fixed finite 
number of ^pp03^!s^tion^ haye i^e^n calculated. Revise^th^ program of the 
previous problem -to^^id in an^Jipper limit for the number of iterations to 
be carried out ^d^l^n-to^^^ whe^ this is reached. Run your 



program for 2= 15, 



Explain how to 'previse thef^prograiiCgi-ven in this section^so that the calcu- 
lation could "be repeated for a series of values of epsi each of which is 
read in -from a card. • 

Write an ALGOL program for the calculation described in Exercise 7-2, Set C, 
Problem 6^ main text. Use f(x) = l/x. Run your program and compare 
results using n = 5, 25, 75, 125, 200. . ' - 
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A7-3 Area under curve; the general case 



We now^ consider the general case of finding an. approxaiiation to the area 
under a curve y = f(x), above the x-axis and between i^he^ vertical lines ^ 
X = a and -jc = b. In order to make the pi^gram as useful es possi'^l!e we* shall 
yrrite it in the ^orm of a procedure.^ The 'function - f(x) 'is assumed to 
defined as a- real procedure. An ei*ror l^l'^Sance* epsi is giv^n and we te.rm- 
inate the calculation when the absolute va^ue of, the. difference of two succes- 
sive approxiciations is less than epsi. follow the flow chart of Figure T-20. 



real prpcedure area(a;b^epsi,f )^ real a/b^epsij real procedure f ; 
begin 

integer k^ra; 

real h, S, OLAREA, MJAREA; 
ra := 1; 
h : = b - a; 
OLAPEA 
m 



B0X3: 



0.5 X h X (f(a) + f(b))j 
2 X m; 



= h/2; 
= 0; ^ 



B0X9: 
end 



for k := 1 step until ra-1 do 

S := S + f(a + k X h); 
NUARiA := 0,5 X OltAREA + h x"S; ' ^ 
if abs(NUAREA - OLAREA) < epai then go to B0X9; 
OLAREA *:= NUAREA; 
go to B0X3; 
area : =/ NUAREA; 

area ^ ^ . * 



If *we want to use this pi^cedure to calculate and print the approximate 
area under the curve y = l/x, above the x-axis^ an4 between the iines^ x = X 



aud X = 2, we might use a tolerance of epsi 
the following program: 



IQ 



and then we could write 



begin 



end 
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real procedure f(x)j real x; f := l/x; 

comment Place the above procedure declaration fpr area here; 
real z; . • 

z := area(l,2\1?)001,f ); 
write(l^2'^z); 



; ExerclBes A7-3 ' ' 

1. (a) Write ah ALGOL function procedure area2(a,b,n,f ) which calculates 
an approxinrntion to the area^ under the^curye y = f (x), above the 
X-axis- and between thev lines x = a and x = "b and which uses a 
subdivision of the intearval (a,b) into n equal parts. Follow 
the flox chart drawn in Exercises 7-3, 'Rroblem 1, of the main text. 
< \ Test your program for y = |in x between x = 0 and xi = it with 

n = 5000. (How does your result compare with the area of a semi- 
circle of diameter jt ?) > 

(b) Use function area2 to print out a table of natural logarithms for 

numbers from 1 through 5I ^i<i intervals of 5. Also, print out 
* * the liUrary function ln(x) for the same values of x for com- 
- ■ ' parison. ^ 

^*2. Tell how the procedure area (a,b,epsi,f ) of this section may be adapted to 

^ ' protect against the possibility of an endlegs loop by' causing termination 
T -'^ of the calculation if trie number of subdivisions exceeds n. If thet 

^^^^culation is ^terminated in this manner without satisfying the accuracy 
criterion; a message should be printed in addition to giving the approx- 
. ' iUJation to the area. 

-3/ Ip/rite an ALGOL program in vhlch you first declare the procedure area of 
this section and the procedure area2 of ' ^?i^6blem 1. Then call these 
procedures _ with appropriate values of the parameters to calculate approx- 
imations to the arfeas described below. First use l,2,k equal subdivision^ 

^ of the* interval and then u^^an error tolerance of epsi = lO"*^. Of course, 
you will need to supply-^he necessary real procedure declarations to define 
* the functions whicfF^nter into the descriptions of the areas. 

(a) Below jA .^3^^9/x, above x-aiis, bVtweeil x = 1 and x =3.. 
(The/^ea is log '3.) 

Below 'y = 3x + 2x + 1, above x-axis, between x = -2 and x = 2. 



,'^'(c^" Below ' y = above y = x^, between x =.1 and x = 

"Write an AI/jOL" program and necessary real procedures that can be used in 
* calling on Area (a,b, epsi, f) to compute an appccoximate value of jt to 
four decimal places. (See ProUem 6, Exercises 7-3, main text.) 



AT 



A7-^ Simultaneous linear equations : Developing a systematic method of solution 

In this section of the main text we explained carefully how to solve 
systems of two and *hree sii&iltaneous equations. Exercises 7-^ provided e;^am- 
ples of the method. You should now be ready to write a simple ALGOL pi^gram 



for the' solution of two simultaneous equations in two unknowns. 



Exercises A7-^ • , ' ^ 

1. Follow the flow chart drawn in Exercises 7-^; Set B, of the main text, 



and write a corresponding ALGOL pix)graiii for the solution of two simultan- 
eous equations in 'two unknowns: 



' ' ^2l\ ^22^2 = ^2 

2. Use the program of Problem 1 to solve the following systems of equations 
on the^ computer. Make a hand- calculated check of your computer results. 
Pot systems (f) and (g), slide rule accuracy is sufficient. 

(a) Ux - 2y 5 (e) 5x + y = 2 
'2x/y+ y ^ h " 3x - ivy = 7 

\ . ' > 

(b) kx jr^y = 5 . (f) 3-l^^vx^'+ 5-375x2 = -1.23^ 

2xf- ky = T . ' 10.2lv5x^ - 5.21UX2 = 3.71i* 



(c) '3x - % = 12 , (g) 5.128x^ - 3.87^^X2 = 12. U2 

* Ux + 6y = 3 

W 2x + 'hy = -7 



' hx + ^ = 3 ' 3.817X ' + 15.157x^-^ = 3.78^1 



•A7-5 Simultaneous linear equations ; Gauss algorithm 

In describing the. solution of three equations in three unknowns we des-" 
cribed each of the essential operations in*turn and drew a flow chart for each. 
^It will be ^instructive to build ufr^ ALGOL program in the same gradual fashion 
^e^Qln by dividing the-first equation through by a^^, as described'in Figure 
7-2U: The. corresponding ALGOL statements would-be: 

J • =2 step 1 until^ 3 do ' * , * ' 

"^^^ a[l,j]:=a[l,j^/a[l,l]; 
b[l]:=b[l]7a[l,l]j ' 

The -elimination of from the i^^ row, i = 2,3 is described in 

^ 'Figure 7-25 and the cojrresponding ALGOL statements* would be:*^ 

^ j -=2 step 1 until 3 do • ; • 

a[i;j]:=a[i,j] - a[i,l] xa[l,j]; ^ 
b[i]:=bri] - a[i,l] kb[l]; 

Next we h^^ to divide thfe pw second equation by a^^ and then\liminate 
Xg from the tjiird l^u^i^icn. Following .these simple examples, you should have 
little trouble writing the ALGOL that's equivalent to Figures 7-27 through 7-30. 



Exercises A7-5 Set A 

1. Write the A£G0L statements corresponding to the floy chart of Figure 7-27. 

2. Note the similarity between the statements of Problem 1 and those corres- 
podding to Figure 7-2U. Write a single set of ALGOL .statements cover ^ 
both cases by following Figure 7-28. 

3. Write the ALGOL statements for the flow chart of Figure 7-30. - 

4. Now write the ALGOL 'that's -equivalent to Figure 7-33. 



^7 



Next we want to carry out the back solution in order to obtain x^, - 
in tum. This is dest:ribed in the flow charts of Figures 7-3U and 7-35. The ^ / 
ALGOL statements corresponding to the latter flow chart, Figure 7-35, would be: 

for i";= 3 step -1 until 1 do . . ^ 

\ • x[i] := b[i]; . ^ 

for j 3 step -1 until i + 1 do ' _ , 

^ ^ x[i] := x[i] - ^[i,j] X x[j]; ^----^-^^-^'-^ - 

end'; 

Now just as the complete flow chart of Figure 7-33 ^as l?uilt up from par- 
tial flow charts, §o we can build up the complete ALGOL program corresponding 
to Figure 7-3 6 from the partial ALGOL programs which we have just discussed and 
which you have written in Exercises. A7-5> Set A^ 

Exercises A7-5 Set B 

1. * Write a complete ALGOL program for tfie Gauss Algorithm given in Figur^ 7-36. 

2. Run the above program on yotte* machine and use the pixjgram to solve the 
•sys-tems* ^f simultaneous^ linear, ejgjiations represented by the following 

^ arrays,: 

• (a)' 3x + i^y +- z = -7 r . ' (c) i^x - 2y - 3z = 7 

2x +Ay z = 3" ; ''3x i^ 5y + 2z = 1 r 

' . " 3x - 5y + 3z = 1 ' ^'T 2x +-y"+ 2z = 1 ' 

())) X + 2y - z,= 4 ^ (d) 2x - y + 6z ^3 

3x - 2y + i^rz = 1 \ 3x - % +' 14.Z = 1 

yi ' "iy - 2z ^ 1 ' X + 2y - 5z = 7 

* *" - 

3. Now use' the above program on your^machine to solve these systems of * 
^equations: 



(a) 3.1i^7x^-+ 2.1^19X2 -3.^79x2 = ^".219 ^ 
6.2i^lx^ - 5.67&X2 + i^. 271X2 = -52.17 . 
3.8i^lx^ + 5.761x2 + 3^.3l|^j = 27. U 

.4b)^^27-.U7x^ - 3.i^l7x^ - ZM9yi^ = 5.617 
. ' 31.^68x^ + 3^^28x2 + 1^.719X2 = 31.^21 
, ir.l21x^ - 3.171x2 + 5.31^X2./= -f7.12l ^ 
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Solution of n, equations in n / unknowns 

The generalization to n* equations is quite easy if we follow 
exactly the pattern we just used^or 3 equations. You are asked to make the 

necessary changes in the i)artial programs in the following, exercises. 

* ** 

A 

Exercise F7-^ Set £ - , y 

•J * 

Revise your ALGOL program for the Gauss Algorithm to handle n equations 
and ri unknowns, adcording to the procedure flow chart you prepared for 
Problem 2/ Exercises 7-5, SeJ^^A^ main text. Call the procedure Gauss. Test 
the procedure using the by i^^ system given in Problem 3 of Exercises 7-5, 
Set B, in the main text. Show the calling pix)gram which calls on Gauss. 

^ Exercise A7-5 Set D 

1.' In Exercises 7-5; Set C, .of the main text you "were asked to insert 
"partial pivoting" as a capability of your flow chart for the Gauss 
procedure. Show the corresponding changes necessary to the ALGOL pro-' 
cedure Gauss which you prepared in the preceding exercise* 

Use the revised Gauss procedure to solVe the following systems of simul- 
taneous linear equations with and without partial pivoting. 

(a) 3x2 - = , (b) . 2x^ - 3x2 + i^x^ = 7 

3x^ - 2X2 + hx^ = 7 >x^ - + 13x2 =,11 

5x^ + 15X2 - 3X2 = -i^- 2x^ - TXg - 12X2 = 1 
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